/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _databases / databases / _stdtrace / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 0a 14 f4 20 53 | 54 44 20 43 6f 64 65 20 |e..... S|TD Code |
|00000020| 54 72 61 63 65 0d 00 14 | 24 f4 20 69 6e 20 41 72 |Trace...|$. in Ar|
|00000030| 63 68 69 6d 65 64 65 73 | 20 57 69 6d 70 20 45 6e |chimedes| Wimp En|
|00000040| 76 69 72 6f 6e 6d 65 6e | 74 0d 00 1e 1c f4 20 28 |vironmen|t..... (|
|00000050| 63 29 20 41 6c 65 78 20 | 48 6f 70 6b 69 6e 73 2c |c) Alex |Hopkins,|
|00000060| 20 31 39 39 31 0d 00 28 | 25 56 65 72 73 69 6f 6e | 1991..(|%Version|
|00000070| 24 3d 22 49 20 31 2e 30 | 30 20 7b 46 65 62 72 75 |$="I 1.0|0 {Febru|
|00000080| 61 72 79 20 31 39 39 31 | 7d 22 0d 00 32 05 3a 0d |ary 1991|}"..2.:.|
|00000090| 00 3c 3f c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.<?.. "W|imp_Init|
|000000a0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|000000b0| 33 34 31 35 34 2c 22 53 | 54 44 20 43 6f 64 65 20 |34154,"S|TD Code |
|000000c0| 54 72 61 63 65 22 20 b8 | 20 2c 74 61 73 6b 0d 00 |Trace" .| ,task..|
|000000d0| 46 28 ee 20 85 20 f2 65 | 72 72 6f 72 20 3a 20 c8 |F(. . .e|rror : .|
|000000e0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|000000f0| 6e 22 20 3a 20 e0 0d 00 | 50 0a f2 73 65 74 75 70 |n" : ...|P..setup|
|00000100| 0d 00 5a 17 ee 20 85 20 | f2 65 72 72 6f 72 20 3a |..Z.. . |.error :|
|00000110| 20 51 75 69 74 3d b9 0d | 00 64 05 3a 0d 00 6e 05 | Quit=..|.d.:..n.|
|00000120| f5 0d 00 78 13 f2 70 6f | 6c 6c 28 a4 70 6f 6c 6c |...x..po|ll(.poll|
|00000130| 28 30 29 29 0d 00 82 0a | fd 20 51 75 69 74 0d 00 |(0))....|. Quit..|
|00000140| 8c 17 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.... "Wi|mp_Close|
|00000150| 44 6f 77 6e 22 0d 00 96 | 05 e0 0d 00 a0 05 3a 0d |Down"...|......:.|
|00000160| 00 aa 0c dd 20 f2 73 65 | 74 75 70 0d 00 b4 2e de |.... .se|tup.....|
|00000170| 20 62 6c 6f 63 6b 20 26 | 31 32 30 30 2c 62 75 66 | block &|1200,buf|
|00000180| 66 65 72 25 20 26 32 30 | 30 2c 74 65 6d 70 6c 61 |fer% &20|0,templa|
|00000190| 74 65 25 20 26 31 32 30 | 30 0d 00 be 2b de 20 53 |te% &120|0...+. S|
|000001a0| 70 72 69 74 65 73 20 26 | 34 30 30 30 2c 66 61 63 |prites &|4000,fac|
|000001b0| 74 6f 72 25 20 31 35 2c | 70 69 78 74 72 61 6e 73 |tor% 15,|pixtrans|
|000001c0| 25 20 31 35 0d 00 c8 12 | de 20 53 54 44 24 28 34 |% 15....|. STD$(4|
|000001d0| 30 38 32 2c 32 29 0d 00 | d2 3e 21 53 70 72 69 74 |082,2)..|.>!Sprit|
|000001e0| 65 73 3d 26 31 30 30 30 | 20 3a 20 53 70 72 69 74 |es=&1000| : Sprit|
|000001f0| 65 73 21 34 3d 30 20 3a | 20 53 70 72 69 74 65 73 |es!4=0 :| Sprites|
|00000200| 21 38 3d 31 36 20 3a 20 | 53 70 72 69 74 65 73 21 |!8=16 : |Sprites!|
|00000210| 31 32 3d 30 0d 00 dc 39 | c8 99 20 22 4f 53 5f 53 |12=0...9|.. "OS_S|
|00000220| 70 72 69 74 65 4f 70 22 | 2c 32 36 36 2c 53 70 72 |priteOp"|,266,Spr|
|00000230| 69 74 65 73 2c 22 3c 53 | 54 44 74 72 61 63 65 24 |ites,"<S|TDtrace$|
|00000240| 44 69 72 3e 2e 53 70 72 | 69 74 65 73 22 0d 00 e6 |Dir>.Spr|ites"...|
|00000250| 2b 44 65 62 75 67 25 3d | b9 20 3a 20 51 75 69 74 |+Debug%=|. : Quit|
|00000260| 3d a3 20 3a 20 46 6f 75 | 6e 64 3d a3 20 3a 20 4c |=. : Fou|nd=. : L|
|00000270| 6f 61 64 69 6e 67 3d b9 | 0d 00 f0 30 f2 67 65 74 |oading=.|...0.get|
|00000280| 4d 6f 64 65 49 6e 66 6f | 20 3a 20 f2 6c 6f 61 64 |ModeInfo| : .load|
|00000290| 54 65 6d 70 6c 61 74 65 | 73 20 3a 20 f2 64 65 66 |Template|s : .def|
|000002a0| 69 6e 65 4d 65 6e 75 73 | 0d 00 fa 35 49 63 6f 6e |ineMenus|...5Icon|
|000002b0| 3d a4 69 63 6f 6e 62 61 | 72 20 3a 20 f2 73 65 74 |=.iconba|r : .set|
|000002c0| 46 6f 75 6e 64 20 3a 20 | f2 6f 70 65 6e 57 69 6e |Found : |.openWin|
|000002d0| 64 6f 77 28 4c 6f 61 64 | 57 25 2c a3 29 0d 01 04 |dow(Load|W%,.)...|
|000002e0| 05 e1 0d 01 0e 05 3a 0d | 01 18 12 dd 20 f2 67 65 |......:.|.... .ge|
|000002f0| 74 4d 6f 64 65 49 6e 66 | 6f 0d 01 22 43 c8 99 20 |tModeInf|o.."C.. |
|00000300| 22 57 69 6d 70 5f 52 65 | 61 64 50 69 78 54 72 61 |"Wimp_Re|adPixTra|
|00000310| 6e 73 22 2c 32 35 36 2c | 53 70 72 69 74 65 73 2c |ns",256,|Sprites,|
|00000320| 22 70 68 6f 6e 65 22 2c | 2c 2c 2c 66 61 63 74 6f |"phone",|,,,facto|
|00000330| 72 25 2c 70 69 78 74 72 | 61 6e 73 25 0d 01 2c 05 |r%,pixtr|ans%..,.|
|00000340| e1 0d 01 36 05 3a 0d 01 | 40 14 dd 20 f2 6c 6f 61 |...6.:..|@.. .loa|
|00000350| 64 54 65 6d 70 6c 61 74 | 65 73 0d 01 4a 36 c8 99 |dTemplat|es..J6..|
|00000360| 20 22 57 69 6d 70 5f 4f | 70 65 6e 54 65 6d 70 6c | "Wimp_O|penTempl|
|00000370| 61 74 65 22 2c 2c 22 3c | 53 54 44 74 72 61 63 65 |ate",,"<|STDtrace|
|00000380| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 61 74 65 73 22 |$Dir>.Te|mplates"|
|00000390| 0d 01 54 1c 53 65 61 72 | 57 25 3d a4 77 69 6e 64 |..T.Sear|W%=.wind|
|000003a0| 6f 77 28 22 53 65 61 72 | 63 68 22 29 0d 01 5e 1b |ow("Sear|ch")..^.|
|000003b0| 46 6f 75 6e 57 25 3d a4 | 77 69 6e 64 6f 77 28 22 |FounW%=.|window("|
|000003c0| 46 6f 75 6e 64 22 29 0d | 01 68 1d 4c 6f 61 64 57 |Found").|.h.LoadW|
|000003d0| 25 3d a4 77 69 6e 64 6f | 77 28 22 4c 6f 61 64 69 |%=.windo|w("Loadi|
|000003e0| 6e 67 22 29 0d 01 72 1a | 49 6e 66 6f 57 25 3d a4 |ng")..r.|InfoW%=.|
|000003f0| 77 69 6e 64 6f 77 28 22 | 49 6e 66 6f 22 29 0d 01 |window("|Info")..|
|00000400| 7c 21 f2 69 6e 64 69 72 | 49 63 6f 6e 28 49 6e 66 ||!.indir|Icon(Inf|
|00000410| 6f 57 25 2c 38 2c 56 65 | 72 73 69 6f 6e 24 29 0d |oW%,8,Ve|rsion$).|
|00000420| 01 86 1b c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00000430| 65 54 65 6d 70 6c 61 74 | 65 22 0d 01 90 05 e1 0d |eTemplat|e"......|
|00000440| 01 9a 05 3a 0d 01 a4 11 | dd 20 a4 77 69 6e 64 6f |...:....|. .windo|
|00000450| 77 28 61 24 29 0d 01 ae | 24 ea 20 63 25 2c 65 6e |w(a$)...|$. c%,en|
|00000460| 64 25 20 3a 20 65 6e 64 | 25 3d 74 65 6d 70 6c 61 |d% : end|%=templa|
|00000470| 74 65 25 2b 26 31 32 30 | 30 0d 01 b8 4c c8 99 20 |te%+&120|0...L.. |
|00000480| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00000490| 74 65 22 2c 2c 62 6c 6f | 63 6b 2c 74 65 6d 70 6c |te",,blo|ck,templ|
|000004a0| 61 74 65 25 2c 65 6e 64 | 25 2c 2d 31 2c 61 24 2c |ate%,end|%,-1,a$,|
|000004b0| 30 20 b8 20 2c 2c 74 65 | 6d 70 6c 61 74 65 25 2c |0 . ,,te|mplate%,|
|000004c0| 2c 2c 2c 63 25 0d 01 c2 | 14 62 6c 6f 63 6b 21 36 |,,,c%...|.block!6|
|000004d0| 34 3d 53 70 72 69 74 65 | 73 0d 01 cc 26 c8 99 20 |4=Sprite|s...&.. |
|000004e0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000004f0| 6f 77 22 2c 2c 62 6c 6f | 63 6b 20 b8 20 63 25 0d |ow",,blo|ck . c%.|
|00000500| 01 d6 07 3d 63 25 0d 01 | e0 05 3a 0d 01 ea 0b dd |...=c%..|..:.....|
|00000510| 20 f2 6c 6f 61 64 0d 01 | f4 35 c8 99 20 22 48 6f | .load..|.5.. "Ho|
|00000520| 75 72 67 6c 61 73 73 5f | 4f 6e 22 20 3a 20 f2 72 |urglass_|On" : .r|
|00000530| 65 61 64 53 54 44 20 3a | 20 c8 99 20 22 48 6f 75 |eadSTD :| .. "Hou|
|00000540| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 01 fe 24 f2 |rglass_O|ff"...$.|
|00000550| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 4c 6f 61 64 |closeWin|dow(Load|
|00000560| 57 25 29 20 3a 20 4c 6f | 61 64 69 6e 67 3d a3 0d |W%) : Lo|ading=..|
|00000570| 02 08 05 e1 0d 02 12 05 | 3a 0d 02 1c 0e dd 20 f2 |........|:..... .|
|00000580| 72 65 61 64 53 54 44 0d | 02 26 3b 4e 25 3d 31 20 |readSTD.|.&;N%=1 |
|00000590| 3a 20 63 68 61 6e 3d 8e | 28 22 3c 53 54 44 74 72 |: chan=.|("<STDtr|
|000005a0| 61 63 65 24 44 69 72 3e | 2e 43 6f 64 65 73 41 22 |ace$Dir>|.CodesA"|
|000005b0| 29 20 3a 20 43 68 65 63 | 6b 24 3d a4 73 74 72 69 |) : Chec|k$=.stri|
|000005c0| 6e 67 0d 02 30 30 e3 20 | 61 3d 31 20 b8 20 31 39 |ng..00. |a=1 . 19|
|000005d0| 36 20 3a 20 e3 20 62 3d | 30 20 b8 20 32 20 3a 20 |6 : . b=|0 . 2 : |
|000005e0| 53 54 44 24 28 4e 25 2c | 62 29 3d a4 73 74 72 69 |STD$(N%,|b)=.stri|
|000005f0| 6e 67 0d 02 3a 35 ed 20 | 3a 20 4e 25 2b 3d 31 20 |ng..:5. |: N%+=1 |
|00000600| 3a 20 ed 20 3a 20 d9 23 | 63 68 61 6e 20 3a 20 f2 |: . : .#|chan : .|
|00000610| 69 6e 64 69 72 49 63 6f | 6e 28 4c 6f 61 64 57 25 |indirIco|n(LoadW%|
|00000620| 2c 34 2c 22 42 22 29 0d | 02 44 34 63 68 61 6e 3d |,4,"B").|.D4chan=|
|00000630| 8e 28 22 3c 53 54 44 74 | 72 61 63 65 24 44 69 72 |.("<STDt|race$Dir|
|00000640| 3e 2e 43 6f 64 65 73 42 | 22 29 20 3a 20 43 68 65 |>.CodesB|") : Che|
|00000650| 63 6b 24 3d a4 73 74 72 | 69 6e 67 0d 02 4e 30 e3 |ck$=.str|ing..N0.|
|00000660| 20 61 3d 31 20 b8 20 34 | 37 35 20 3a 20 e3 20 62 | a=1 . 4|75 : . b|
|00000670| 3d 30 20 b8 20 32 20 3a | 20 53 54 44 24 28 4e 25 |=0 . 2 :| STD$(N%|
|00000680| 2c 62 29 3d a4 73 74 72 | 69 6e 67 0d 02 58 35 ed |,b)=.str|ing..X5.|
|00000690| 20 3a 20 4e 25 2b 3d 31 | 20 3a 20 ed 20 3a 20 d9 | : N%+=1| : . : .|
|000006a0| 23 63 68 61 6e 20 3a 20 | f2 69 6e 64 69 72 49 63 |#chan : |.indirIc|
|000006b0| 6f 6e 28 4c 6f 61 64 57 | 25 2c 34 2c 22 43 22 29 |on(LoadW|%,4,"C")|
|000006c0| 0d 02 62 34 63 68 61 6e | 3d 8e 28 22 3c 53 54 44 |..b4chan|=.("<STD|
|000006d0| 74 72 61 63 65 24 44 69 | 72 3e 2e 43 6f 64 65 73 |trace$Di|r>.Codes|
|000006e0| 43 22 29 20 3a 20 43 68 | 65 63 6b 24 3d a4 73 74 |C") : Ch|eck$=.st|
|000006f0| 72 69 6e 67 0d 02 6c 30 | e3 20 61 3d 31 20 b8 20 |ring..l0|. a=1 . |
|00000700| 34 33 34 20 3a 20 e3 20 | 62 3d 30 20 b8 20 32 20 |434 : . |b=0 . 2 |
|00000710| 3a 20 53 54 44 24 28 4e | 25 2c 62 29 3d a4 73 74 |: STD$(N|%,b)=.st|
|00000720| 72 69 6e 67 0d 02 76 35 | ed 20 3a 20 4e 25 2b 3d |ring..v5|. : N%+=|
|00000730| 31 20 3a 20 ed 20 3a 20 | d9 23 63 68 61 6e 20 3a |1 : . : |.#chan :|
|00000740| 20 f2 69 6e 64 69 72 49 | 63 6f 6e 28 4c 6f 61 64 | .indirI|con(Load|
|00000750| 57 25 2c 34 2c 22 44 22 | 29 0d 02 80 34 63 68 61 |W%,4,"D"|)...4cha|
|00000760| 6e 3d 8e 28 22 3c 53 54 | 44 74 72 61 63 65 24 44 |n=.("<ST|Dtrace$D|
|00000770| 69 72 3e 2e 43 6f 64 65 | 73 44 22 29 20 3a 20 43 |ir>.Code|sD") : C|
|00000780| 68 65 63 6b 24 3d a4 73 | 74 72 69 6e 67 0d 02 8a |heck$=.s|tring...|
|00000790| 30 e3 20 61 3d 31 20 b8 | 20 31 38 36 20 3a 20 e3 |0. a=1 .| 186 : .|
|000007a0| 20 62 3d 30 20 b8 20 32 | 20 3a 20 53 54 44 24 28 | b=0 . 2| : STD$(|
|000007b0| 4e 25 2c 62 29 3d a4 73 | 74 72 69 6e 67 0d 02 94 |N%,b)=.s|tring...|
|000007c0| 35 ed 20 3a 20 4e 25 2b | 3d 31 20 3a 20 ed 20 3a |5. : N%+|=1 : . :|
|000007d0| 20 d9 23 63 68 61 6e 20 | 3a 20 f2 69 6e 64 69 72 | .#chan |: .indir|
|000007e0| 49 63 6f 6e 28 4c 6f 61 | 64 57 25 2c 34 2c 22 45 |Icon(Loa|dW%,4,"E|
|000007f0| 22 29 0d 02 9e 34 63 68 | 61 6e 3d 8e 28 22 3c 53 |")...4ch|an=.("<S|
|00000800| 54 44 74 72 61 63 65 24 | 44 69 72 3e 2e 43 6f 64 |TDtrace$|Dir>.Cod|
|00000810| 65 73 45 22 29 20 3a 20 | 43 68 65 63 6b 24 3d a4 |esE") : |Check$=.|
|00000820| 73 74 72 69 6e 67 0d 02 | a8 30 e3 20 61 3d 31 20 |string..|.0. a=1 |
|00000830| b8 20 31 31 32 20 3a 20 | e3 20 62 3d 30 20 b8 20 |. 112 : |. b=0 . |
|00000840| 32 20 3a 20 53 54 44 24 | 28 4e 25 2c 62 29 3d a4 |2 : STD$|(N%,b)=.|
|00000850| 73 74 72 69 6e 67 0d 02 | b2 35 ed 20 3a 20 4e 25 |string..|.5. : N%|
|00000860| 2b 3d 31 20 3a 20 ed 20 | 3a 20 d9 23 63 68 61 6e |+=1 : . |: .#chan|
|00000870| 20 3a 20 f2 69 6e 64 69 | 72 49 63 6f 6e 28 4c 6f | : .indi|rIcon(Lo|
|00000880| 61 64 57 25 2c 34 2c 22 | 46 22 29 0d 02 bc 34 63 |adW%,4,"|F")...4c|
|00000890| 68 61 6e 3d 8e 28 22 3c | 53 54 44 74 72 61 63 65 |han=.("<|STDtrace|
|000008a0| 24 44 69 72 3e 2e 43 6f | 64 65 73 46 22 29 20 3a |$Dir>.Co|desF") :|
|000008b0| 20 43 68 65 63 6b 24 3d | a4 73 74 72 69 6e 67 0d | Check$=|.string.|
|000008c0| 02 c6 30 e3 20 61 3d 31 | 20 b8 20 31 33 33 20 3a |..0. a=1| . 133 :|
|000008d0| 20 e3 20 62 3d 30 20 b8 | 20 32 20 3a 20 53 54 44 | . b=0 .| 2 : STD|
|000008e0| 24 28 4e 25 2c 62 29 3d | a4 73 74 72 69 6e 67 0d |$(N%,b)=|.string.|
|000008f0| 02 d0 35 ed 20 3a 20 4e | 25 2b 3d 31 20 3a 20 ed |..5. : N|%+=1 : .|
|00000900| 20 3a 20 d9 23 63 68 61 | 6e 20 3a 20 f2 69 6e 64 | : .#cha|n : .ind|
|00000910| 69 72 49 63 6f 6e 28 4c | 6f 61 64 57 25 2c 34 2c |irIcon(L|oadW%,4,|
|00000920| 22 47 22 29 0d 02 da 34 | 63 68 61 6e 3d 8e 28 22 |"G")...4|chan=.("|
|00000930| 3c 53 54 44 74 72 61 63 | 65 24 44 69 72 3e 2e 43 |<STDtrac|e$Dir>.C|
|00000940| 6f 64 65 73 47 22 29 20 | 3a 20 43 68 65 63 6b 24 |odesG") |: Check$|
|00000950| 3d a4 73 74 72 69 6e 67 | 0d 02 e4 30 e3 20 61 3d |=.string|...0. a=|
|00000960| 31 20 b8 20 31 38 34 20 | 3a 20 e3 20 62 3d 30 20 |1 . 184 |: . b=0 |
|00000970| b8 20 32 20 3a 20 53 54 | 44 24 28 4e 25 2c 62 29 |. 2 : ST|D$(N%,b)|
|00000980| 3d a4 73 74 72 69 6e 67 | 0d 02 ee 35 ed 20 3a 20 |=.string|...5. : |
|00000990| 4e 25 2b 3d 31 20 3a 20 | ed 20 3a 20 d9 23 63 68 |N%+=1 : |. : .#ch|
|000009a0| 61 6e 20 3a 20 f2 69 6e | 64 69 72 49 63 6f 6e 28 |an : .in|dirIcon(|
|000009b0| 4c 6f 61 64 57 25 2c 34 | 2c 22 48 22 29 0d 02 f8 |LoadW%,4|,"H")...|
|000009c0| 34 63 68 61 6e 3d 8e 28 | 22 3c 53 54 44 74 72 61 |4chan=.(|"<STDtra|
|000009d0| 63 65 24 44 69 72 3e 2e | 43 6f 64 65 73 48 22 29 |ce$Dir>.|CodesH")|
|000009e0| 20 3a 20 43 68 65 63 6b | 24 3d a4 73 74 72 69 6e | : Check|$=.strin|
|000009f0| 67 0d 03 02 30 e3 20 61 | 3d 31 20 b8 20 31 39 31 |g...0. a|=1 . 191|
|00000a00| 20 3a 20 e3 20 62 3d 30 | 20 b8 20 32 20 3a 20 53 | : . b=0| . 2 : S|
|00000a10| 54 44 24 28 4e 25 2c 62 | 29 3d a4 73 74 72 69 6e |TD$(N%,b|)=.strin|
|00000a20| 67 0d 03 0c 35 ed 20 3a | 20 4e 25 2b 3d 31 20 3a |g...5. :| N%+=1 :|
|00000a30| 20 ed 20 3a 20 d9 23 63 | 68 61 6e 20 3a 20 f2 69 | . : .#c|han : .i|
|00000a40| 6e 64 69 72 49 63 6f 6e | 28 4c 6f 61 64 57 25 2c |ndirIcon|(LoadW%,|
|00000a50| 34 2c 22 49 22 29 0d 03 | 16 34 63 68 61 6e 3d 8e |4,"I")..|.4chan=.|
|00000a60| 28 22 3c 53 54 44 74 72 | 61 63 65 24 44 69 72 3e |("<STDtr|ace$Dir>|
|00000a70| 2e 43 6f 64 65 73 49 22 | 29 20 3a 20 43 68 65 63 |.CodesI"|) : Chec|
|00000a80| 6b 24 3d a4 73 74 72 69 | 6e 67 0d 03 20 2f e3 20 |k$=.stri|ng.. /. |
|00000a90| 61 3d 31 20 b8 20 35 33 | 20 3a 20 e3 20 62 3d 30 |a=1 . 53| : . b=0|
|00000aa0| 20 b8 20 32 20 3a 20 53 | 54 44 24 28 4e 25 2c 62 | . 2 : S|TD$(N%,b|
|00000ab0| 29 3d a4 73 74 72 69 6e | 67 0d 03 2a 35 ed 20 3a |)=.strin|g..*5. :|
|00000ac0| 20 4e 25 2b 3d 31 20 3a | 20 ed 20 3a 20 d9 23 63 | N%+=1 :| . : .#c|
|00000ad0| 68 61 6e 20 3a 20 f2 69 | 6e 64 69 72 49 63 6f 6e |han : .i|ndirIcon|
|00000ae0| 28 4c 6f 61 64 57 25 2c | 34 2c 22 4a 22 29 0d 03 |(LoadW%,|4,"J")..|
|00000af0| 34 34 63 68 61 6e 3d 8e | 28 22 3c 53 54 44 74 72 |44chan=.|("<STDtr|
|00000b00| 61 63 65 24 44 69 72 3e | 2e 43 6f 64 65 73 4a 22 |ace$Dir>|.CodesJ"|
|00000b10| 29 20 3a 20 43 68 65 63 | 6b 24 3d a4 73 74 72 69 |) : Chec|k$=.stri|
|00000b20| 6e 67 0d 03 3e 2e e3 20 | 61 3d 31 20 b8 20 39 20 |ng..>.. |a=1 . 9 |
|00000b30| 3a 20 e3 20 62 3d 30 20 | b8 20 32 20 3a 20 53 54 |: . b=0 |. 2 : ST|
|00000b40| 44 24 28 4e 25 2c 62 29 | 3d a4 73 74 72 69 6e 67 |D$(N%,b)|=.string|
|00000b50| 0d 03 48 35 ed 20 3a 20 | 4e 25 2b 3d 31 20 3a 20 |..H5. : |N%+=1 : |
|00000b60| ed 20 3a 20 d9 23 63 68 | 61 6e 20 3a 20 f2 69 6e |. : .#ch|an : .in|
|00000b70| 64 69 72 49 63 6f 6e 28 | 4c 6f 61 64 57 25 2c 34 |dirIcon(|LoadW%,4|
|00000b80| 2c 22 4b 22 29 0d 03 52 | 34 63 68 61 6e 3d 8e 28 |,"K")..R|4chan=.(|
|00000b90| 22 3c 53 54 44 74 72 61 | 63 65 24 44 69 72 3e 2e |"<STDtra|ce$Dir>.|
|00000ba0| 43 6f 64 65 73 4b 22 29 | 20 3a 20 43 68 65 63 6b |CodesK")| : Check|
|00000bb0| 24 3d a4 73 74 72 69 6e | 67 0d 03 5c 30 e3 20 61 |$=.strin|g..\0. a|
|00000bc0| 3d 31 20 b8 20 31 35 35 | 20 3a 20 e3 20 62 3d 30 |=1 . 155| : . b=0|
|00000bd0| 20 b8 20 32 20 3a 20 53 | 54 44 24 28 4e 25 2c 62 | . 2 : S|TD$(N%,b|
|00000be0| 29 3d a4 73 74 72 69 6e | 67 0d 03 66 35 ed 20 3a |)=.strin|g..f5. :|
|00000bf0| 20 4e 25 2b 3d 31 20 3a | 20 ed 20 3a 20 d9 23 63 | N%+=1 :| . : .#c|
|00000c00| 68 61 6e 20 3a 20 f2 69 | 6e 64 69 72 49 63 6f 6e |han : .i|ndirIcon|
|00000c10| 28 4c 6f 61 64 57 25 2c | 34 2c 22 4c 22 29 0d 03 |(LoadW%,|4,"L")..|
|00000c20| 70 34 63 68 61 6e 3d 8e | 28 22 3c 53 54 44 74 72 |p4chan=.|("<STDtr|
|00000c30| 61 63 65 24 44 69 72 3e | 2e 43 6f 64 65 73 4c 22 |ace$Dir>|.CodesL"|
|00000c40| 29 20 3a 20 43 68 65 63 | 6b 24 3d a4 73 74 72 69 |) : Chec|k$=.stri|
|00000c50| 6e 67 0d 03 7a 30 e3 20 | 61 3d 31 20 b8 20 33 30 |ng..z0. |a=1 . 30|
|00000c60| 30 20 3a 20 e3 20 62 3d | 30 20 b8 20 32 20 3a 20 |0 : . b=|0 . 2 : |
|00000c70| 53 54 44 24 28 4e 25 2c | 62 29 3d a4 73 74 72 69 |STD$(N%,|b)=.stri|
|00000c80| 6e 67 0d 03 84 35 ed 20 | 3a 20 4e 25 2b 3d 31 20 |ng...5. |: N%+=1 |
|00000c90| 3a 20 ed 20 3a 20 d9 23 | 63 68 61 6e 20 3a 20 f2 |: . : .#|chan : .|
|00000ca0| 69 6e 64 69 72 49 63 6f | 6e 28 4c 6f 61 64 57 25 |indirIco|n(LoadW%|
|00000cb0| 2c 34 2c 22 4d 22 29 0d | 03 8e 34 63 68 61 6e 3d |,4,"M").|..4chan=|
|00000cc0| 8e 28 22 3c 53 54 44 74 | 72 61 63 65 24 44 69 72 |.("<STDt|race$Dir|
|00000cd0| 3e 2e 43 6f 64 65 73 4d | 22 29 20 3a 20 43 68 65 |>.CodesM|") : Che|
|00000ce0| 63 6b 24 3d a4 73 74 72 | 69 6e 67 0d 03 98 30 e3 |ck$=.str|ing...0.|
|00000cf0| 20 61 3d 31 20 b8 20 32 | 31 34 20 3a 20 e3 20 62 | a=1 . 2|14 : . b|
|00000d00| 3d 30 20 b8 20 32 20 3a | 20 53 54 44 24 28 4e 25 |=0 . 2 :| STD$(N%|
|00000d10| 2c 62 29 3d a4 73 74 72 | 69 6e 67 0d 03 a2 35 ed |,b)=.str|ing...5.|
|00000d20| 20 3a 20 4e 25 2b 3d 31 | 20 3a 20 ed 20 3a 20 d9 | : N%+=1| : . : .|
|00000d30| 23 63 68 61 6e 20 3a 20 | f2 69 6e 64 69 72 49 63 |#chan : |.indirIc|
|00000d40| 6f 6e 28 4c 6f 61 64 57 | 25 2c 34 2c 22 4e 22 29 |on(LoadW|%,4,"N")|
|00000d50| 0d 03 ac 34 63 68 61 6e | 3d 8e 28 22 3c 53 54 44 |...4chan|=.("<STD|
|00000d60| 74 72 61 63 65 24 44 69 | 72 3e 2e 43 6f 64 65 73 |trace$Di|r>.Codes|
|00000d70| 4e 22 29 20 3a 20 43 68 | 65 63 6b 24 3d a4 73 74 |N") : Ch|eck$=.st|
|00000d80| 72 69 6e 67 0d 03 b6 30 | e3 20 61 3d 31 20 b8 20 |ring...0|. a=1 . |
|00000d90| 31 33 35 20 3a 20 e3 20 | 62 3d 30 20 b8 20 32 20 |135 : . |b=0 . 2 |
|00000da0| 3a 20 53 54 44 24 28 4e | 25 2c 62 29 3d a4 73 74 |: STD$(N|%,b)=.st|
|00000db0| 72 69 6e 67 0d 03 c0 35 | ed 20 3a 20 4e 25 2b 3d |ring...5|. : N%+=|
|00000dc0| 31 20 3a 20 ed 20 3a 20 | d9 23 63 68 61 6e 20 3a |1 : . : |.#chan :|
|00000dd0| 20 f2 69 6e 64 69 72 49 | 63 6f 6e 28 4c 6f 61 64 | .indirI|con(Load|
|00000de0| 57 25 2c 34 2c 22 4f 22 | 29 0d 03 ca 34 63 68 61 |W%,4,"O"|)...4cha|
|00000df0| 6e 3d 8e 28 22 3c 53 54 | 44 74 72 61 63 65 24 44 |n=.("<ST|Dtrace$D|
|00000e00| 69 72 3e 2e 43 6f 64 65 | 73 4f 22 29 20 3a 20 43 |ir>.Code|sO") : C|
|00000e10| 68 65 63 6b 24 3d a4 73 | 74 72 69 6e 67 0d 03 d4 |heck$=.s|tring...|
|00000e20| 2f e3 20 61 3d 31 20 b8 | 20 35 35 20 3a 20 e3 20 |/. a=1 .| 55 : . |
|00000e30| 62 3d 30 20 b8 20 32 20 | 3a 20 53 54 44 24 28 4e |b=0 . 2 |: STD$(N|
|00000e40| 25 2c 62 29 3d a4 73 74 | 72 69 6e 67 0d 03 de 35 |%,b)=.st|ring...5|
|00000e50| ed 20 3a 20 4e 25 2b 3d | 31 20 3a 20 ed 20 3a 20 |. : N%+=|1 : . : |
|00000e60| d9 23 63 68 61 6e 20 3a | 20 f2 69 6e 64 69 72 49 |.#chan :| .indirI|
|00000e70| 63 6f 6e 28 4c 6f 61 64 | 57 25 2c 34 2c 22 50 22 |con(Load|W%,4,"P"|
|00000e80| 29 0d 03 e8 34 63 68 61 | 6e 3d 8e 28 22 3c 53 54 |)...4cha|n=.("<ST|
|00000e90| 44 74 72 61 63 65 24 44 | 69 72 3e 2e 43 6f 64 65 |Dtrace$D|ir>.Code|
|00000ea0| 73 50 22 29 20 3a 20 43 | 68 65 63 6b 24 3d a4 73 |sP") : C|heck$=.s|
|00000eb0| 74 72 69 6e 67 0d 03 f2 | 30 e3 20 61 3d 31 20 b8 |tring...|0. a=1 .|
|00000ec0| 20 31 39 35 20 3a 20 e3 | 20 62 3d 30 20 b8 20 32 | 195 : .| b=0 . 2|
|00000ed0| 20 3a 20 53 54 44 24 28 | 4e 25 2c 62 29 3d a4 73 | : STD$(|N%,b)=.s|
|00000ee0| 74 72 69 6e 67 0d 03 fc | 35 ed 20 3a 20 4e 25 2b |tring...|5. : N%+|
|00000ef0| 3d 31 20 3a 20 ed 20 3a | 20 d9 23 63 68 61 6e 20 |=1 : . :| .#chan |
|00000f00| 3a 20 f2 69 6e 64 69 72 | 49 63 6f 6e 28 4c 6f 61 |: .indir|Icon(Loa|
|00000f10| 64 57 25 2c 34 2c 22 51 | 22 29 0d 04 06 34 63 68 |dW%,4,"Q|")...4ch|
|00000f20| 61 6e 3d 8e 28 22 3c 53 | 54 44 74 72 61 63 65 24 |an=.("<S|TDtrace$|
|00000f30| 44 69 72 3e 2e 43 6f 64 | 65 73 51 22 29 20 3a 20 |Dir>.Cod|esQ") : |
|00000f40| 43 68 65 63 6b 24 3d a4 | 73 74 72 69 6e 67 0d 04 |Check$=.|string..|
|00000f50| 10 2e e3 20 61 3d 31 20 | b8 20 35 20 3a 20 e3 20 |... a=1 |. 5 : . |
|00000f60| 62 3d 30 20 b8 20 32 20 | 3a 20 53 54 44 24 28 4e |b=0 . 2 |: STD$(N|
|00000f70| 25 2c 62 29 3d a4 73 74 | 72 69 6e 67 0d 04 1a 35 |%,b)=.st|ring...5|
|00000f80| ed 20 3a 20 4e 25 2b 3d | 31 20 3a 20 ed 20 3a 20 |. : N%+=|1 : . : |
|00000f90| d9 23 63 68 61 6e 20 3a | 20 f2 69 6e 64 69 72 49 |.#chan :| .indirI|
|00000fa0| 63 6f 6e 28 4c 6f 61 64 | 57 25 2c 34 2c 22 52 22 |con(Load|W%,4,"R"|
|00000fb0| 29 0d 04 24 34 63 68 61 | 6e 3d 8e 28 22 3c 53 54 |)..$4cha|n=.("<ST|
|00000fc0| 44 74 72 61 63 65 24 44 | 69 72 3e 2e 43 6f 64 65 |Dtrace$D|ir>.Code|
|00000fd0| 73 52 22 29 20 3a 20 43 | 68 65 63 6b 24 3d a4 73 |sR") : C|heck$=.s|
|00000fe0| 74 72 69 6e 67 0d 04 2e | 30 e3 20 61 3d 31 20 b8 |tring...|0. a=1 .|
|00000ff0| 20 31 33 39 20 3a 20 e3 | 20 62 3d 30 20 b8 20 32 | 139 : .| b=0 . 2|
|00001000| 20 3a 20 53 54 44 24 28 | 4e 25 2c 62 29 3d a4 73 | : STD$(|N%,b)=.s|
|00001010| 74 72 69 6e 67 0d 04 38 | 35 ed 20 3a 20 4e 25 2b |tring..8|5. : N%+|
|00001020| 3d 31 20 3a 20 ed 20 3a | 20 d9 23 63 68 61 6e 20 |=1 : . :| .#chan |
|00001030| 3a 20 f2 69 6e 64 69 72 | 49 63 6f 6e 28 4c 6f 61 |: .indir|Icon(Loa|
|00001040| 64 57 25 2c 34 2c 22 53 | 22 29 0d 04 42 34 63 68 |dW%,4,"S|")..B4ch|
|00001050| 61 6e 3d 8e 28 22 3c 53 | 54 44 74 72 61 63 65 24 |an=.("<S|TDtrace$|
|00001060| 44 69 72 3e 2e 43 6f 64 | 65 73 53 22 29 20 3a 20 |Dir>.Cod|esS") : |
|00001070| 43 68 65 63 6b 24 3d a4 | 73 74 72 69 6e 67 0d 04 |Check$=.|string..|
|00001080| 4c 30 e3 20 61 3d 31 20 | b8 20 33 39 37 20 3a 20 |L0. a=1 |. 397 : |
|00001090| e3 20 62 3d 30 20 b8 20 | 32 20 3a 20 53 54 44 24 |. b=0 . |2 : STD$|
|000010a0| 28 4e 25 2c 62 29 3d a4 | 73 74 72 69 6e 67 0d 04 |(N%,b)=.|string..|
|000010b0| 56 35 ed 20 3a 20 4e 25 | 2b 3d 31 20 3a 20 ed 20 |V5. : N%|+=1 : . |
|000010c0| 3a 20 d9 23 63 68 61 6e | 20 3a 20 f2 69 6e 64 69 |: .#chan| : .indi|
|000010d0| 72 49 63 6f 6e 28 4c 6f | 61 64 57 25 2c 34 2c 22 |rIcon(Lo|adW%,4,"|
|000010e0| 54 22 29 0d 04 60 34 63 | 68 61 6e 3d 8e 28 22 3c |T")..`4c|han=.("<|
|000010f0| 53 54 44 74 72 61 63 65 | 24 44 69 72 3e 2e 43 6f |STDtrace|$Dir>.Co|
|00001100| 64 65 73 54 22 29 20 3a | 20 43 68 65 63 6b 24 3d |desT") :| Check$=|
|00001110| a4 73 74 72 69 6e 67 0d | 04 6a 30 e3 20 61 3d 31 |.string.|.j0. a=1|
|00001120| 20 b8 20 31 38 37 20 3a | 20 e3 20 62 3d 30 20 b8 | . 187 :| . b=0 .|
|00001130| 20 32 20 3a 20 53 54 44 | 24 28 4e 25 2c 62 29 3d | 2 : STD|$(N%,b)=|
|00001140| a4 73 74 72 69 6e 67 0d | 04 74 35 ed 20 3a 20 4e |.string.|.t5. : N|
|00001150| 25 2b 3d 31 20 3a 20 ed | 20 3a 20 d9 23 63 68 61 |%+=1 : .| : .#cha|
|00001160| 6e 20 3a 20 f2 69 6e 64 | 69 72 49 63 6f 6e 28 4c |n : .ind|irIcon(L|
|00001170| 6f 61 64 57 25 2c 34 2c | 22 55 22 29 0d 04 7e 34 |oadW%,4,|"U")..~4|
|00001180| 63 68 61 6e 3d 8e 28 22 | 3c 53 54 44 74 72 61 63 |chan=.("|<STDtrac|
|00001190| 65 24 44 69 72 3e 2e 43 | 6f 64 65 73 55 22 29 20 |e$Dir>.C|odesU") |
|000011a0| 3a 20 43 68 65 63 6b 24 | 3d a4 73 74 72 69 6e 67 |: Check$|=.string|
|000011b0| 0d 04 88 2f e3 20 61 3d | 31 20 b8 20 33 32 20 3a |.../. a=|1 . 32 :|
|000011c0| 20 e3 20 62 3d 30 20 b8 | 20 32 20 3a 20 53 54 44 | . b=0 .| 2 : STD|
|000011d0| 24 28 4e 25 2c 62 29 3d | a4 73 74 72 69 6e 67 0d |$(N%,b)=|.string.|
|000011e0| 04 92 35 ed 20 3a 20 4e | 25 2b 3d 31 20 3a 20 ed |..5. : N|%+=1 : .|
|000011f0| 20 3a 20 d9 23 63 68 61 | 6e 20 3a 20 f2 69 6e 64 | : .#cha|n : .ind|
|00001200| 69 72 49 63 6f 6e 28 4c | 6f 61 64 57 25 2c 34 2c |irIcon(L|oadW%,4,|
|00001210| 22 56 22 29 0d 04 9c 34 | 63 68 61 6e 3d 8e 28 22 |"V")...4|chan=.("|
|00001220| 3c 53 54 44 74 72 61 63 | 65 24 44 69 72 3e 2e 43 |<STDtrac|e$Dir>.C|
|00001230| 6f 64 65 73 56 22 29 20 | 3a 20 43 68 65 63 6b 24 |odesV") |: Check$|
|00001240| 3d a4 73 74 72 69 6e 67 | 0d 04 a6 2e e3 20 61 3d |=.string|..... a=|
|00001250| 31 20 b8 20 35 20 3a 20 | e3 20 62 3d 30 20 b8 20 |1 . 5 : |. b=0 . |
|00001260| 32 20 3a 20 53 54 44 24 | 28 4e 25 2c 62 29 3d a4 |2 : STD$|(N%,b)=.|
|00001270| 73 74 72 69 6e 67 0d 04 | b0 35 ed 20 3a 20 4e 25 |string..|.5. : N%|
|00001280| 2b 3d 31 20 3a 20 ed 20 | 3a 20 d9 23 63 68 61 6e |+=1 : . |: .#chan|
|00001290| 20 3a 20 f2 69 6e 64 69 | 72 49 63 6f 6e 28 4c 6f | : .indi|rIcon(Lo|
|000012a0| 61 64 57 25 2c 34 2c 22 | 57 22 29 0d 04 ba 34 63 |adW%,4,"|W")...4c|
|000012b0| 68 61 6e 3d 8e 28 22 3c | 53 54 44 74 72 61 63 65 |han=.("<|STDtrace|
|000012c0| 24 44 69 72 3e 2e 43 6f | 64 65 73 57 22 29 20 3a |$Dir>.Co|desW") :|
|000012d0| 20 43 68 65 63 6b 24 3d | a4 73 74 72 69 6e 67 0d | Check$=|.string.|
|000012e0| 04 c4 30 e3 20 61 3d 31 | 20 b8 20 32 36 36 20 3a |..0. a=1| . 266 :|
|000012f0| 20 e3 20 62 3d 30 20 b8 | 20 32 20 3a 20 53 54 44 | . b=0 .| 2 : STD|
|00001300| 24 28 4e 25 2c 62 29 3d | a4 73 74 72 69 6e 67 0d |$(N%,b)=|.string.|
|00001310| 04 ce 35 ed 20 3a 20 4e | 25 2b 3d 31 20 3a 20 ed |..5. : N|%+=1 : .|
|00001320| 20 3a 20 d9 23 63 68 61 | 6e 20 3a 20 f2 69 6e 64 | : .#cha|n : .ind|
|00001330| 69 72 49 63 6f 6e 28 4c | 6f 61 64 57 25 2c 34 2c |irIcon(L|oadW%,4,|
|00001340| 22 59 22 29 0d 04 d8 34 | 63 68 61 6e 3d 8e 28 22 |"Y")...4|chan=.("|
|00001350| 3c 53 54 44 74 72 61 63 | 65 24 44 69 72 3e 2e 43 |<STDtrac|e$Dir>.C|
|00001360| 6f 64 65 73 59 22 29 20 | 3a 20 43 68 65 63 6b 24 |odesY") |: Check$|
|00001370| 3d a4 73 74 72 69 6e 67 | 0d 04 e2 2f e3 20 61 3d |=.string|.../. a=|
|00001380| 31 20 b8 20 32 31 20 3a | 20 e3 20 62 3d 30 20 b8 |1 . 21 :| . b=0 .|
|00001390| 20 32 20 3a 20 53 54 44 | 24 28 4e 25 2c 62 29 3d | 2 : STD|$(N%,b)=|
|000013a0| a4 73 74 72 69 6e 67 0d | 04 ec 35 ed 20 3a 20 4e |.string.|..5. : N|
|000013b0| 25 2b 3d 31 20 3a 20 ed | 20 3a 20 d9 23 63 68 61 |%+=1 : .| : .#cha|
|000013c0| 6e 20 3a 20 f2 69 6e 64 | 69 72 49 63 6f 6e 28 4c |n : .ind|irIcon(L|
|000013d0| 6f 61 64 57 25 2c 34 2c | 22 5a 22 29 0d 04 f6 34 |oadW%,4,|"Z")...4|
|000013e0| 63 68 61 6e 3d 8e 28 22 | 3c 53 54 44 74 72 61 63 |chan=.("|<STDtrac|
|000013f0| 65 24 44 69 72 3e 2e 43 | 6f 64 65 73 5a 22 29 20 |e$Dir>.C|odesZ") |
|00001400| 3a 20 43 68 65 63 6b 24 | 3d a4 73 74 72 69 6e 67 |: Check$|=.string|
|00001410| 0d 05 00 2f e3 20 62 3d | 30 20 b8 20 32 20 3a 20 |.../. b=|0 . 2 : |
|00001420| 53 54 44 24 28 4e 25 2c | 62 29 3d a4 73 74 72 69 |STD$(N%,|b)=.stri|
|00001430| 6e 67 20 3a 20 ed 20 3a | 20 d9 23 63 68 61 6e 0d |ng : . :| .#chan.|
|00001440| 05 0a 0d 54 6f 74 61 6c | 25 3d 4e 25 0d 05 14 05 |...Total|%=N%....|
|00001450| e1 0d 05 1e 05 3a 0d 05 | 28 0f dd 20 f2 73 65 74 |.....:..|(.. .set|
|00001460| 46 6f 75 6e 64 0d 05 32 | 35 f2 69 6e 64 69 72 49 |Found..2|5.indirI|
|00001470| 63 6f 6e 28 46 6f 75 6e | 57 25 2c 33 2c 22 22 29 |con(Foun|W%,3,"")|
|00001480| 20 3a 20 f2 69 6e 64 69 | 72 49 63 6f 6e 28 46 6f | : .indi|rIcon(Fo|
|00001490| 75 6e 57 25 2c 34 2c 22 | 22 29 0d 05 3c 05 e1 0d |unW%,4,"|")..<...|
|000014a0| 05 46 05 3a 0d 05 50 0d | dd 20 a4 73 74 72 69 6e |.F.:..P.|. .strin|
|000014b0| 67 0d 05 5a 2b 73 74 72 | 24 3d 22 22 20 3a 20 f5 |g..Z+str|$="" : .|
|000014c0| 20 3a 20 63 68 72 3d 9a | 23 63 68 61 6e 20 3a 20 | : chr=.|#chan : |
|000014d0| 73 74 72 24 2b 3d bd 28 | 63 68 72 29 0d 05 64 1e |str$+=.(|chr)..d.|
|000014e0| fd 20 63 68 72 3d 31 30 | 20 84 20 63 68 72 3d 31 |. chr=10| . chr=1|
|000014f0| 33 20 84 20 63 68 72 3d | 34 34 0d 05 6e 0b 3d c0 |3 . chr=|44..n.=.|
|00001500| 73 74 72 24 29 0d 05 78 | 05 3a 0d 05 82 12 dd 20 |str$)..x|.:..... |
|00001510| a4 70 6f 6c 6c 28 6d 61 | 73 6b 25 29 0d 05 8c 08 |.poll(ma|sk%)....|
|00001520| ea 20 61 25 0d 05 96 11 | 62 6c 6f 63 6b 21 30 3d |. a%....|block!0=|
|00001530| 6d 61 73 6b 25 0d 05 a0 | 1f c8 99 20 22 57 69 6d |mask%...|... "Wim|
|00001540| 70 5f 50 6f 6c 6c 22 2c | 30 2c 62 6c 6f 63 6b 20 |p_Poll",|0,block |
|00001550| b8 20 61 25 0d 05 aa 07 | 3d 61 25 0d 05 b4 05 3a |. a%....|=a%....:|
|00001560| 0d 05 be 14 dd 20 f2 70 | 6f 6c 6c 28 72 65 61 73 |..... .p|oll(reas|
|00001570| 6f 6e 25 29 0d 05 c8 10 | c8 8e 20 72 65 61 73 6f |on%)....|.. reaso|
|00001580| 6e 25 20 ca 0d 05 d2 1d | c9 20 30 20 3a 20 e7 20 |n% .....|. 0 : . |
|00001590| 4c 6f 61 64 69 6e 67 3d | b9 20 8c 20 f2 6c 6f 61 |Loading=|. . .loa|
|000015a0| 64 0d 05 dc 1e c9 20 31 | 20 3a 20 f2 72 65 64 72 |d..... 1| : .redr|
|000015b0| 61 77 57 69 6e 64 6f 77 | 28 62 6c 6f 63 6b 29 0d |awWindow|(block).|
|000015c0| 05 e6 1f c9 20 32 20 3a | 20 f2 6f 70 65 6e 57 69 |.... 2 :| .openWi|
|000015d0| 6e 64 6f 77 28 21 62 6c | 6f 63 6b 2c b9 29 0d 05 |ndow(!bl|ock,.)..|
|000015e0| f0 1e c9 20 33 20 3a 20 | f2 63 6c 6f 73 65 57 69 |... 3 : |.closeWi|
|000015f0| 6e 64 6f 77 28 21 62 6c | 6f 63 6b 29 0d 05 fa 1c |ndow(!bl|ock)....|
|00001600| c9 20 36 20 3a 20 f2 6d | 6f 75 73 65 43 6c 69 63 |. 6 : .m|ouseClic|
|00001610| 6b 28 62 6c 6f 63 6b 29 | 0d 06 04 1c c9 20 38 20 |k(block)|..... 8 |
|00001620| 3a 20 f2 6b 65 79 50 72 | 65 73 73 65 64 28 62 6c |: .keyPr|essed(bl|
|00001630| 6f 63 6b 29 0d 06 0e 1b | c9 20 39 20 3a 20 f2 6d |ock)....|. 9 : .m|
|00001640| 65 6e 75 43 6c 69 63 6b | 28 62 6c 6f 63 6b 29 0d |enuClick|(block).|
|00001650| 06 18 1d c9 20 31 37 2c | 31 38 20 3a 20 f2 6d 65 |.... 17,|18 : .me|
|00001660| 73 73 61 67 65 28 62 6c | 6f 63 6b 29 0d 06 22 05 |ssage(bl|ock)..".|
|00001670| cb 0d 06 2c 05 e1 0d 06 | 36 05 3a 0d 06 40 15 dd |...,....|6.:..@..|
|00001680| 20 f2 6d 65 73 73 61 67 | 65 28 62 6c 6f 63 6b 29 | .messag|e(block)|
|00001690| 0d 06 4a 11 c8 8e 20 62 | 6c 6f 63 6b 21 31 36 20 |..J... b|lock!16 |
|000016a0| ca 0d 06 54 15 c9 20 30 | 20 20 20 20 20 20 3a 20 |...T.. 0|      : |
|000016b0| 51 75 69 74 3d b9 0d 06 | 5e 1b c9 20 26 34 30 30 |Quit=...|^.. &400|
|000016c0| 43 31 20 3a 20 f2 67 65 | 74 4d 6f 64 65 49 6e 66 |C1 : .ge|tModeInf|
|000016d0| 6f 0d 06 68 05 cb 0d 06 | 72 05 e1 0d 06 7c 05 3a |o..h....|r....|.:|
|000016e0| 0d 06 86 1b dd 20 f2 6f | 70 65 6e 57 69 6e 64 6f |..... .o|penWindo|
|000016f0| 77 28 68 25 2c 66 75 6c | 6c 25 29 0d 06 90 0d 21 |w(h%,ful|l%)....!|
|00001700| 62 6c 6f 63 6b 3d 68 25 | 0d 06 9a 3d e7 20 ac 20 |block=h%|...=. . |
|00001710| 66 75 6c 6c 25 20 8c 20 | c8 99 20 22 57 69 6d 70 |full% . |.. "Wimp|
|00001720| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00001730| 2c 2c 62 6c 6f 63 6b 20 | 3a 20 62 6c 6f 63 6b 21 |,,block |: block!|
|00001740| 32 38 3d 2d 31 0d 06 a4 | 1f c8 99 20 22 57 69 6d |28=-1...|... "Wim|
|00001750| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00001760| 6c 6f 63 6b 0d 06 ae 05 | e1 0d 06 b8 05 3a 0d 06 |lock....|.....:..|
|00001770| c2 1a dd 20 f2 72 65 64 | 72 61 77 57 69 6e 64 6f |... .red|rawWindo|
|00001780| 77 28 62 6c 6f 63 6b 29 | 0d 06 cc 28 c8 99 20 22 |w(block)|...(.. "|
|00001790| 57 69 6d 70 5f 52 65 64 | 72 61 77 57 69 6e 64 6f |Wimp_Red|rawWindo|
|000017a0| 77 22 2c 2c 62 6c 6f 63 | 6b 20 b8 20 6d 6f 72 65 |w",,bloc|k . more|
|000017b0| 0d 06 d6 0b c8 95 20 6d | 6f 72 65 0d 06 e0 21 c8 |...... m|ore...!.|
|000017c0| 99 20 22 57 69 6d 70 5f | 42 6f 72 64 65 72 57 69 |. "Wimp_|BorderWi|
|000017d0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 06 ea 28 |ndow",,b|lock...(|
|000017e0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |.. "Wimp|_GetRect|
|000017f0| 61 6e 67 6c 65 22 2c 2c | 62 6c 6f 63 6b 20 b8 20 |angle",,|block . |
|00001800| 6d 6f 72 65 0d 06 f4 05 | ce 0d 06 fe 05 e1 0d 07 |more....|........|
|00001810| 08 05 3a 0d 07 12 16 dd | 20 f2 63 6c 6f 73 65 57 |..:.....| .closeW|
|00001820| 69 6e 64 6f 77 28 68 25 | 29 0d 07 1c 2c 21 62 6c |indow(h%|)...,!bl|
|00001830| 6f 63 6b 3d 68 25 20 3a | 20 c8 99 20 22 57 69 6d |ock=h% :| .. "Wim|
|00001840| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00001850| 62 6c 6f 63 6b 0d 07 26 | 05 e1 0d 07 30 05 3a 0d |block..&|....0.:.|
|00001860| 07 3a 18 dd 20 f2 6d 6f | 75 73 65 43 6c 69 63 6b |.:.. .mo|useClick|
|00001870| 28 62 6c 6f 63 6b 29 0d | 07 44 2f 62 75 74 74 6f |(block).|.D/butto|
|00001880| 6e 25 3d 62 6c 6f 63 6b | 21 38 20 3a 20 68 25 3d |n%=block|!8 : h%=|
|00001890| 62 6c 6f 63 6b 21 31 32 | 20 3a 20 69 25 3d 62 6c |block!12| : i%=bl|
|000018a0| 6f 63 6b 21 31 36 0d 07 | 4e 23 c8 99 20 22 57 69 |ock!16..|N#.. "Wi|
|000018b0| 6d 70 5f 47 65 74 50 6f | 69 6e 74 65 72 49 6e 66 |mp_GetPo|interInf|
|000018c0| 6f 22 2c 2c 62 6c 6f 63 | 6b 0d 07 58 1c 6d 78 25 |o",,bloc|k..X.mx%|
|000018d0| 3d 21 62 6c 6f 63 6b 20 | 3a 20 6d 79 25 3d 62 6c |=!block |: my%=bl|
|000018e0| 6f 63 6b 21 34 0d 07 62 | 21 e7 20 62 75 74 74 6f |ock!4..b|!. butto|
|000018f0| 6e 25 20 80 20 32 20 8c | 20 f2 6d 65 6e 75 28 68 |n% . 2 .| .menu(h|
|00001900| 25 29 20 3a 20 e1 0d 07 | 6c 39 e7 20 68 25 3d 2d |%) : ...|l9. h%=-|
|00001910| 32 20 8c 20 f2 6f 70 65 | 6e 57 69 6e 64 6f 77 28 |2 . .ope|nWindow(|
|00001920| 53 65 61 72 57 25 2c a3 | 29 20 3a 20 f2 73 65 74 |SearW%,.|) : .set|
|00001930| 43 61 72 65 74 28 53 65 | 61 72 57 25 2c 32 29 0d |Caret(Se|arW%,2).|
|00001940| 07 76 25 e7 20 68 25 3d | 46 6f 75 6e 57 25 20 8c |.v%. h%=|FounW% .|
|00001950| 20 f2 73 65 6c 65 63 74 | 28 69 25 2c 62 75 74 74 | .select|(i%,butt|
|00001960| 6f 6e 25 29 0d 07 80 05 | e1 0d 07 8a 05 3a 0d 07 |on%)....|.....:..|
|00001970| 94 14 dd 20 f2 73 65 6c | 65 63 74 28 69 25 2c 62 |... .sel|ect(i%,b|
|00001980| 25 29 0d 07 9e 15 e7 20 | 69 25 3c 35 20 84 20 69 |%)..... |i%<5 . i|
|00001990| 25 3e 36 20 8c 20 e1 0d | 07 a8 0b c8 8e 20 69 25 |%>6 . ..|..... i%|
|000019a0| 20 ca 0d 07 b2 39 c9 20 | 35 20 3a 20 f2 62 6f 72 | ....9. |5 : .bor|
|000019b0| 64 65 72 49 63 6f 6e 28 | 46 6f 75 6e 57 25 2c 35 |derIcon(|FounW%,5|
|000019c0| 2c 62 25 29 20 3a 20 f2 | 63 6c 6f 73 65 57 69 6e |,b%) : .|closeWin|
|000019d0| 64 6f 77 28 46 6f 75 6e | 57 25 29 0d 07 bc 44 20 |dow(Foun|W%)...D |
|000019e0| 20 20 20 20 3a 20 f2 73 | 65 74 46 6f 75 6e 64 20 |    : .s|etFound |
|000019f0| 3a 20 f2 69 6e 64 69 72 | 49 63 6f 6e 28 53 65 61 |: .indir|Icon(Sea|
|00001a00| 72 57 25 2c 32 2c 22 22 | 29 20 3a 20 f2 73 65 74 |rW%,2,""|) : .set|
|00001a10| 43 61 72 65 74 28 53 65 | 61 72 57 25 2c 32 29 0d |Caret(Se|arW%,2).|
|00001a20| 07 c6 39 c9 20 36 20 3a | 20 f2 62 6f 72 64 65 72 |..9. 6 :| .border|
|00001a30| 49 63 6f 6e 28 46 6f 75 | 6e 57 25 2c 36 2c 62 25 |Icon(Fou|nW%,6,b%|
|00001a40| 29 20 3a 20 f2 63 6c 6f | 73 65 57 69 6e 64 6f 77 |) : .clo|seWindow|
|00001a50| 28 46 6f 75 6e 57 25 29 | 0d 07 d0 2a 20 20 20 20 |(FounW%)|...*    |
|00001a60| 20 3a 20 f2 73 65 74 46 | 6f 75 6e 64 20 3a 20 f2 | : .setF|ound : .|
|00001a70| 73 65 61 72 63 68 28 53 | 65 61 72 63 68 24 2c 53 |search(S|earch$,S|
|00001a80| 25 29 0d 07 da 05 cb 0d | 07 e4 35 f2 62 6f 72 64 |%)......|..5.bord|
|00001a90| 65 72 49 63 6f 6e 28 46 | 6f 75 6e 57 25 2c 35 2c |erIcon(F|ounW%,5,|
|00001aa0| 30 29 20 3a 20 f2 62 6f | 72 64 65 72 49 63 6f 6e |0) : .bo|rderIcon|
|00001ab0| 28 46 6f 75 6e 57 25 2c | 36 2c 30 29 0d 07 ee 05 |(FounW%,|6,0)....|
|00001ac0| e1 0d 07 f8 05 3a 0d 08 | 02 18 dd 20 f2 6b 65 79 |.....:..|... .key|
|00001ad0| 50 72 65 73 73 65 64 28 | 62 6c 6f 63 6b 29 0d 08 |Pressed(|block)..|
|00001ae0| 0c 28 68 25 3d 21 62 6c | 6f 63 6b 20 3a 20 69 25 |.(h%=!bl|ock : i%|
|00001af0| 3d 62 6c 6f 63 6b 21 34 | 20 3a 20 6b 25 3d 62 6c |=block!4| : k%=bl|
|00001b00| 6f 63 6b 21 32 34 0d 08 | 16 2d f2 73 65 74 49 63 |ock!24..|.-.setIc|
|00001b10| 6f 6e 28 68 25 2c 69 25 | 2c 30 2c 30 29 20 3a 20 |on(h%,i%|,0,0) : |
|00001b20| f2 67 65 74 49 63 6f 6e | 49 6e 66 6f 28 68 25 2c |.getIcon|Info(h%,|
|00001b30| 69 25 29 0d 08 20 0b c8 | 8e 20 68 25 20 ca 0d 08 |i%).. ..|. h% ...|
|00001b40| 2a 16 c9 20 53 65 61 72 | 57 25 20 3a 20 c8 8e 20 |*.. Sear|W% : .. |
|00001b50| 69 25 20 ca 0d 08 34 13 | c9 20 32 20 3a 20 e7 20 |i% ...4.|. 2 : . |
|00001b60| 6b 25 3d 31 33 20 8c 0d | 08 3e 28 20 20 20 20 20 |k%=13 ..|.>(     |
|00001b70| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |: .. "Wi|mp_SetCa|
|00001b80| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 0d |retPosit|ion",-1.|
|00001b90| 08 48 29 20 20 20 20 20 | 3a 20 53 65 61 72 63 68 |.H)     |: Search|
|00001ba0| 24 3d 64 61 74 61 24 20 | 3a 20 53 25 3d 31 20 3a |$=data$ |: S%=1 :|
|00001bb0| 20 46 6f 75 6e 64 3d a3 | 0d 08 52 1e 20 20 20 20 | Found=.|..R.    |
|00001bc0| 20 3a 20 f2 73 65 61 72 | 63 68 28 53 65 61 72 63 | : .sear|ch(Searc|
|00001bd0| 68 24 2c 53 25 29 0d 08 | 5c 05 cd 0d 08 66 05 cb |h$,S%)..|\....f..|
|00001be0| 0d 08 70 05 cb 0d 08 7a | 1b c8 99 20 22 57 69 6d |..p....z|... "Wim|
|00001bf0| 70 5f 50 72 6f 63 65 73 | 73 4b 65 79 22 2c 6b 25 |p_Proces|sKey",k%|
|00001c00| 0d 08 84 05 e1 0d 08 8e | 05 3a 0d 08 98 16 dd 20 |........|.:..... |
|00001c10| f2 73 65 74 43 61 72 65 | 74 28 68 25 2c 69 25 29 |.setCare|t(h%,i%)|
|00001c20| 0d 08 a2 29 f2 67 65 74 | 49 63 6f 6e 49 6e 66 6f |...).get|IconInfo|
|00001c30| 28 68 25 2c 69 25 29 20 | 3a 20 69 6e 64 65 78 25 |(h%,i%) |: index%|
|00001c40| 3d a9 28 64 61 74 61 24 | 29 0d 08 ac 30 c8 99 20 |=.(data$|)...0.. |
|00001c50| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00001c60| 73 69 74 69 6f 6e 22 2c | 68 25 2c 69 25 2c 2c 2c |sition",|h%,i%,,,|
|00001c70| 2d 31 2c 69 6e 64 65 78 | 25 0d 08 b6 05 e1 0d 08 |-1,index|%.......|
|00001c80| c0 05 3a 0d 08 ca 0f dd | 20 f2 67 65 74 43 61 72 |..:.....| .getCar|
|00001c90| 65 74 0d 08 d4 25 c8 99 | 20 22 57 69 6d 70 5f 47 |et...%..| "Wimp_G|
|00001ca0| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00001cb0| 2c 2c 62 6c 6f 63 6b 0d | 08 de 1a 68 25 3d 21 62 |,,block.|...h%=!b|
|00001cc0| 6c 6f 63 6b 20 3a 20 6a | 25 3d 62 6c 6f 63 6b 21 |lock : j|%=block!|
|00001cd0| 34 0d 08 e8 05 e1 0d 08 | f2 05 3a 0d 08 fc 19 dd |4.......|..:.....|
|00001ce0| 20 f2 67 65 74 49 63 6f | 6e 49 6e 66 6f 28 68 25 | .getIco|nInfo(h%|
|00001cf0| 2c 69 25 29 0d 09 06 3a | 21 62 6c 6f 63 6b 3d 68 |,i%)...:|!block=h|
|00001d00| 25 20 3a 20 62 6c 6f 63 | 6b 21 34 3d 69 25 20 3a |% : bloc|k!4=i% :|
|00001d10| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f | .. "Wim|p_GetIco|
|00001d20| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 0d 09 |nState",|,block..|
|00001d30| 10 40 69 78 30 25 3d 62 | 6c 6f 63 6b 21 38 20 3a |.@ix0%=b|lock!8 :|
|00001d40| 20 69 79 30 25 3d 62 6c | 6f 63 6b 21 31 32 20 3a | iy0%=bl|ock!12 :|
|00001d50| 20 69 78 31 25 3d 62 6c | 6f 63 6b 21 31 36 20 3a | ix1%=bl|ock!16 :|
|00001d60| 20 69 79 31 25 3d 62 6c | 6f 63 6b 21 32 30 0d 09 | iy1%=bl|ock!20..|
|00001d70| 1a 2b 66 6c 61 67 73 25 | 3d 62 6c 6f 63 6b 21 32 |.+flags%|=block!2|
|00001d80| 34 20 3a 20 e7 20 28 66 | 6c 61 67 73 25 20 80 20 |4 : . (f|lags% . |
|00001d90| 26 31 30 30 29 3e 30 20 | 8c 0d 09 24 1a 20 20 20 |&100)>0 |...$.   |
|00001da0| 20 20 3a 20 64 61 74 61 | 24 3d 24 62 6c 6f 63 6b |  : data|$=$block|
|00001db0| 21 32 38 0d 09 2e 19 cc | 20 3a 20 64 61 74 61 24 |!28.....| : data$|
|00001dc0| 3d 24 28 62 6c 6f 63 6b | 2b 32 38 29 0d 09 38 05 |=$(block|+28)..8.|
|00001dd0| cd 0d 09 42 05 e1 0d 09 | 4c 05 3a 0d 09 56 1d dd |...B....|L.:..V..|
|00001de0| 20 f2 69 6e 64 69 72 49 | 63 6f 6e 28 68 25 2c 69 | .indirI|con(h%,i|
|00001df0| 25 2c 74 65 78 74 24 29 | 0d 09 60 3f f2 67 65 74 |%,text$)|..`?.get|
|00001e00| 49 63 6f 6e 49 6e 66 6f | 28 68 25 2c 69 25 29 20 |IconInfo|(h%,i%) |
|00001e10| 3a 20 24 62 6c 6f 63 6b | 21 32 38 3d 74 65 78 74 |: $block|!28=text|
|00001e20| 24 20 3a 20 f2 73 65 74 | 49 63 6f 6e 28 68 25 2c |$ : .set|Icon(h%,|
|00001e30| 69 25 2c 30 2c 30 29 0d | 09 6a 05 e1 0d 09 74 05 |i%,0,0).|.j....t.|
|00001e40| 3a 0d 09 7e 20 dd 20 f2 | 73 65 74 49 63 6f 6e 28 |:..~ . .|setIcon(|
|00001e50| 68 25 2c 69 25 2c 65 6f | 72 25 2c 6d 61 73 6b 25 |h%,i%,eo|r%,mask%|
|00001e60| 29 0d 09 88 3a 21 62 6c | 6f 63 6b 3d 68 25 20 3a |)...:!bl|ock=h% :|
|00001e70| 20 62 6c 6f 63 6b 21 34 | 3d 69 25 20 3a 20 62 6c | block!4|=i% : bl|
|00001e80| 6f 63 6b 21 38 3d 65 6f | 72 25 20 3a 20 62 6c 6f |ock!8=eo|r% : blo|
|00001e90| 63 6b 21 31 32 3d 6d 61 | 73 6b 25 0d 09 92 21 c8 |ck!12=ma|sk%...!.|
|00001ea0| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00001eb0| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 0d 09 9c 05 |tate",,b|lock....|
|00001ec0| e1 0d 09 a6 05 3a 0d 09 | b0 1b dd 20 f2 62 6f 72 |.....:..|... .bor|
|00001ed0| 64 65 72 49 63 6f 6e 28 | 68 25 2c 69 25 2c 62 25 |derIcon(|h%,i%,b%|
|00001ee0| 29 0d 09 ba 2a 62 6c 6f | 63 6b 21 38 3d 62 25 20 |)...*blo|ck!8=b% |
|00001ef0| 3a 20 62 6c 6f 63 6b 21 | 31 32 3d 68 25 20 3a 20 |: block!|12=h% : |
|00001f00| 62 6c 6f 63 6b 21 31 36 | 3d 69 25 0d 09 c4 1f c8 |block!16|=i%.....|
|00001f10| 99 20 22 57 69 6d 70 5f | 42 6f 72 64 65 72 49 63 |. "Wimp_|BorderIc|
|00001f20| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 0d 09 ce 05 e1 0d |on",,blo|ck......|
|00001f30| 09 d8 05 3a 0d 09 e2 0e | dd 20 a4 69 63 6f 6e 62 |...:....|. .iconb|
|00001f40| 61 72 0d 09 ec 25 21 62 | 6c 6f 63 6b 3d 2d 31 20 |ar...%!b|lock=-1 |
|00001f50| 3a 20 62 6c 6f 63 6b 21 | 34 3d 30 20 3a 20 62 6c |: block!|4=0 : bl|
|00001f60| 6f 63 6b 21 38 3d 30 0d | 09 f6 2e 62 6c 6f 63 6b |ock!8=0.|...block|
|00001f70| 21 31 32 3d 36 38 20 3a | 20 62 6c 6f 63 6b 21 31 |!12=68 :| block!1|
|00001f80| 36 3d 36 38 20 3a 20 62 | 6c 6f 63 6b 21 32 30 3d |6=68 : b|lock!20=|
|00001f90| 26 33 31 30 32 0d 0a 00 | 15 64 61 74 61 24 3d 22 |&3102...|.data$="|
|00001fa0| 21 73 74 64 74 72 61 63 | 65 22 0d 0a 0a 2e de 20 |!stdtrac|e"..... |
|00001fb0| 62 6c 6f 63 6b 21 32 34 | 20 28 a9 20 64 61 74 61 |block!24| (. data|
|00001fc0| 24 2b 31 29 20 3a 20 24 | 28 62 6c 6f 63 6b 21 32 |$+1) : $|(block!2|
|00001fd0| 34 29 3d 64 61 74 61 24 | 0d 0a 14 23 62 6c 6f 63 |4)=data$|...#bloc|
|00001fe0| 6b 21 32 38 3d 31 20 3a | 20 62 6c 6f 63 6b 21 33 |k!28=1 :| block!3|
|00001ff0| 32 3d a9 20 64 61 74 61 | 24 2b 31 0d 0a 1e 26 c8 |2=. data|$+1...&.|
|00002000| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00002010| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 20 b8 20 69 63 6f |on",,blo|ck . ico|
|00002020| 6e 0d 0a 28 09 3d 69 63 | 6f 6e 0d 0a 32 05 3a 0d |n..(.=ic|on..2.:.|
|00002030| 0a 3c 15 dd 20 f2 75 70 | 64 61 74 65 46 6f 75 6e |.<.. .up|dateFoun|
|00002040| 64 28 61 29 0d 0a 46 16 | c8 99 20 22 48 6f 75 72 |d(a)..F.|.. "Hour|
|00002050| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 0a 50 2b f2 69 |glass_Of|f"..P+.i|
|00002060| 6e 64 69 72 49 63 6f 6e | 28 46 6f 75 6e 57 25 2c |ndirIcon|(FounW%,|
|00002070| 31 2c 53 54 44 24 28 61 | 2c 30 29 29 20 3a 20 53 |1,STD$(a|,0)) : S|
|00002080| 25 3d 61 2b 31 0d 0a 5a | 16 e7 20 53 54 44 24 28 |%=a+1..Z|.. STD$(|
|00002090| 61 2c 31 29 3c 3e 22 30 | 22 20 8c 0d 0a 64 2b 20 |a,1)<>"0|" ...d+ |
|000020a0| 20 20 20 20 3a 20 63 6f | 64 65 24 3d c2 53 54 44 |    : co|de$=.STD|
|000020b0| 24 28 61 2c 31 29 2c 31 | 29 20 3a 20 c8 8e 20 63 |$(a,1),1|) : .. c|
|000020c0| 6f 64 65 24 20 ca 0d 0a | 6e 41 c9 20 22 40 22 20 |ode$ ...|nA. "@" |
|000020d0| 3a 20 f2 69 6e 64 69 72 | 49 63 6f 6e 28 46 6f 75 |: .indir|Icon(Fou|
|000020e0| 6e 57 25 2c 34 2c 22 33 | 20 46 69 67 75 72 65 20 |nW%,4,"3| Figure |
|000020f0| 4e 75 6d 62 65 72 73 3a | 20 22 2b c0 53 54 44 24 |Numbers:| "+.STD$|
|00002100| 28 61 2c 31 29 29 29 0d | 0a 78 45 c9 20 22 23 22 |(a,1))).|.xE. "#"|
|00002110| 20 3a 20 f2 69 6e 64 69 | 72 49 63 6f 6e 28 46 6f | : .indi|rIcon(Fo|
|00002120| 75 6e 57 25 2c 34 2c 22 | 33 20 26 20 34 20 46 69 |unW%,4,"|3 & 4 Fi|
|00002130| 67 75 72 65 20 4e 75 6d | 62 65 72 73 3a 20 22 2b |gure Num|bers: "+|
|00002140| c0 53 54 44 24 28 61 2c | 31 29 29 29 0d 0a 82 41 |.STD$(a,|1)))...A|
|00002150| c9 20 22 24 22 20 3a 20 | f2 69 6e 64 69 72 49 63 |. "$" : |.indirIc|
|00002160| 6f 6e 28 46 6f 75 6e 57 | 25 2c 34 2c 22 34 20 46 |on(FounW|%,4,"4 F|
|00002170| 69 67 75 72 65 20 4e 75 | 6d 62 65 72 73 3a 20 22 |igure Nu|mbers: "|
|00002180| 2b c0 53 54 44 24 28 61 | 2c 31 29 29 29 0d 0a 8c |+.STD$(a|,1)))...|
|00002190| 45 c9 20 22 25 22 20 3a | 20 f2 69 6e 64 69 72 49 |E. "%" :| .indirI|
|000021a0| 63 6f 6e 28 46 6f 75 6e | 57 25 2c 34 2c 22 34 20 |con(Foun|W%,4,"4 |
|000021b0| 26 20 35 20 46 69 67 75 | 72 65 20 4e 75 6d 62 65 |& 5 Figu|re Numbe|
|000021c0| 72 73 3a 20 22 2b c0 53 | 54 44 24 28 61 2c 31 29 |rs: "+.S|TD$(a,1)|
|000021d0| 29 29 0d 0a 96 41 c9 20 | 22 5e 22 20 3a 20 f2 69 |))...A. |"^" : .i|
|000021e0| 6e 64 69 72 49 63 6f 6e | 28 46 6f 75 6e 57 25 2c |ndirIcon|(FounW%,|
|000021f0| 34 2c 22 35 20 46 69 67 | 75 72 65 20 4e 75 6d 62 |4,"5 Fig|ure Numb|
|00002200| 65 72 73 3a 20 22 2b c0 | 53 54 44 24 28 61 2c 31 |ers: "+.|STD$(a,1|
|00002210| 29 29 29 0d 0a a0 45 c9 | 20 22 26 22 20 3a 20 f2 |)))...E.| "&" : .|
|00002220| 69 6e 64 69 72 49 63 6f | 6e 28 46 6f 75 6e 57 25 |indirIco|n(FounW%|
|00002230| 2c 34 2c 22 35 20 26 20 | 36 20 46 69 67 75 72 65 |,4,"5 & |6 Figure|
|00002240| 20 4e 75 6d 62 65 72 73 | 3a 20 22 2b c0 53 54 44 | Numbers|: "+.STD|
|00002250| 24 28 61 2c 31 29 29 29 | 0d 0a aa 3b 7f 20 3a 20 |$(a,1)))|...;. : |
|00002260| f2 69 6e 64 69 72 49 63 | 6f 6e 28 46 6f 75 6e 57 |.indirIc|on(FounW|
|00002270| 25 2c 33 2c 22 36 20 46 | 69 67 75 72 65 20 4e 75 |%,3,"6 F|igure Nu|
|00002280| 6d 62 65 72 73 3a 20 22 | 2b 53 54 44 24 28 61 2c |mbers: "|+STD$(a,|
|00002290| 31 29 29 0d 0a b4 05 cb | 0d 0a be 2b 20 20 20 20 |1)).....|...+    |
|000022a0| 20 3a 20 63 6f 64 65 24 | 3d c2 53 54 44 24 28 61 | : code$|=.STD$(a|
|000022b0| 2c 32 29 2c 31 29 20 3a | 20 c8 8e 20 63 6f 64 65 |,2),1) :| .. code|
|000022c0| 24 20 ca 0d 0a c8 41 c9 | 20 22 5e 22 20 3a 20 f2 |$ ....A.| "^" : .|
|000022d0| 69 6e 64 69 72 49 63 6f | 6e 28 46 6f 75 6e 57 25 |indirIco|n(FounW%|
|000022e0| 2c 33 2c 22 35 20 46 69 | 67 75 72 65 20 4e 75 6d |,3,"5 Fi|gure Num|
|000022f0| 62 65 72 73 3a 20 22 2b | c0 53 54 44 24 28 61 2c |bers: "+|.STD$(a,|
|00002300| 32 29 29 29 0d 0a d2 45 | c9 20 22 26 22 20 3a 20 |2)))...E|. "&" : |
|00002310| f2 69 6e 64 69 72 49 63 | 6f 6e 28 46 6f 75 6e 57 |.indirIc|on(FounW|
|00002320| 25 2c 33 2c 22 35 20 26 | 20 36 20 46 69 67 75 72 |%,3,"5 &| 6 Figur|
|00002330| 65 20 4e 75 6d 62 65 72 | 73 3a 20 22 2b c0 53 54 |e Number|s: "+.ST|
|00002340| 44 24 28 61 2c 32 29 29 | 29 0d 0a dc 44 c9 20 22 |D$(a,2))|)...D. "|
|00002350| 21 22 20 3a 20 f2 69 6e | 64 69 72 49 63 6f 6e 28 |!" : .in|dirIcon(|
|00002360| 46 6f 75 6e 57 25 2c 34 | 2c 22 43 6f 64 65 20 77 |FounW%,4|,"Code w|
|00002370| 69 6c 6c 20 63 68 61 6e | 67 65 20 74 6f 3a 20 22 |ill chan|ge to: "|
|00002380| 2b c0 53 54 44 24 28 61 | 2c 32 29 29 29 0d 0a e6 |+.STD$(a|,2)))...|
|00002390| 2f 20 20 20 20 20 20 20 | 20 20 3a 20 63 6f 64 65 |/       |  : code|
|000023a0| 24 3d c2 53 54 44 24 28 | 61 2c 31 29 2c 31 29 20 |$=.STD$(|a,1),1) |
|000023b0| 3a 20 c8 8e 20 63 6f 64 | 65 24 20 ca 0d 0a f0 41 |: .. cod|e$ ....A|
|000023c0| c9 20 22 40 22 20 3a 20 | f2 69 6e 64 69 72 49 63 |. "@" : |.indirIc|
|000023d0| 6f 6e 28 46 6f 75 6e 57 | 25 2c 33 2c 22 33 20 46 |on(FounW|%,3,"3 F|
|000023e0| 69 67 75 72 65 20 4e 75 | 6d 62 65 72 73 3a 20 22 |igure Nu|mbers: "|
|000023f0| 2b c0 53 54 44 24 28 61 | 2c 31 29 29 29 0d 0a fa |+.STD$(a|,1)))...|
|00002400| 26 7f 20 3a 20 f2 69 6e | 64 69 72 49 63 6f 6e 28 |&. : .in|dirIcon(|
|00002410| 46 6f 75 6e 57 25 2c 33 | 2c 53 54 44 24 28 61 2c |FounW%,3|,STD$(a,|
|00002420| 31 29 29 0d 0b 04 05 cb | 0d 0b 0e 3b 7f 20 3a 20 |1)).....|...;. : |
|00002430| f2 69 6e 64 69 72 49 63 | 6f 6e 28 46 6f 75 6e 57 |.indirIc|on(FounW|
|00002440| 25 2c 33 2c 22 36 20 46 | 69 67 75 72 65 20 4e 75 |%,3,"6 F|igure Nu|
|00002450| 6d 62 65 72 73 3a 20 22 | 2b 53 54 44 24 28 61 2c |mbers: "|+STD$(a,|
|00002460| 32 29 29 0d 0b 18 05 cb | 0d 0b 22 28 cc 20 3a 20 |2)).....|.."(. : |
|00002470| 63 6f 64 65 24 3d c2 53 | 54 44 24 28 61 2c 32 29 |code$=.S|TD$(a,2)|
|00002480| 2c 31 29 20 3a 20 c8 8e | 20 63 6f 64 65 24 20 ca |,1) : ..| code$ .|
|00002490| 0d 0b 2c 41 c9 20 22 5e | 22 20 3a 20 f2 69 6e 64 |..,A. "^|" : .ind|
|000024a0| 69 72 49 63 6f 6e 28 46 | 6f 75 6e 57 25 2c 33 2c |irIcon(F|ounW%,3,|
|000024b0| 22 35 20 46 69 67 75 72 | 65 20 4e 75 6d 62 65 72 |"5 Figur|e Number|
|000024c0| 73 3a 20 22 2b c0 53 54 | 44 24 28 61 2c 32 29 29 |s: "+.ST|D$(a,2))|
|000024d0| 29 0d 0b 36 26 7f 20 3a | 20 f2 69 6e 64 69 72 49 |)..6&. :| .indirI|
|000024e0| 63 6f 6e 28 46 6f 75 6e | 57 25 2c 33 2c 53 54 44 |con(Foun|W%,3,STD|
|000024f0| 24 28 61 2c 32 29 29 0d | 0b 40 05 cb 0d 0b 4a 05 |$(a,2)).|.@....J.|
|00002500| cd 0d 0b 54 23 f2 6f 70 | 65 6e 57 69 6e 64 6f 77 |...T#.op|enWindow|
|00002510| 28 46 6f 75 6e 57 25 2c | a3 29 20 3a 20 46 6f 75 |(FounW%,|.) : Fou|
|00002520| 6e 64 3d b9 0d 0b 5e 05 | e1 0d 0b 68 05 3a 0d 0b |nd=...^.|...h.:..|
|00002530| 72 17 dd 20 f2 6d 65 6e | 75 43 6c 69 63 6b 28 62 |r.. .men|uClick(b|
|00002540| 6c 6f 63 6b 29 0d 0b 7c | 28 6d 31 3d 62 6c 6f 63 |lock)..||(m1=bloc|
|00002550| 6b 21 30 20 3a 20 6d 32 | 3d 62 6c 6f 63 6b 21 34 |k!0 : m2|=block!4|
|00002560| 20 3a 20 6d 33 3d 62 6c | 6f 63 6b 21 38 0d 0b 86 | : m3=bl|ock!8...|
|00002570| 0f c8 8e 20 6f 6d 65 6e | 75 25 20 ca 0d 0b 90 16 |... omen|u% .....|
|00002580| c9 20 49 63 6f 6e 4d 25 | 20 3a 20 c8 8e 20 6d 31 |. IconM%| : .. m1|
|00002590| 20 ca 0d 0b 9a 34 c9 20 | 30 20 3a 20 c8 99 20 22 | ....4. |0 : .. "|
|000025a0| 57 69 6d 70 5f 53 74 61 | 72 74 54 61 73 6b 22 2c |Wimp_Sta|rtTask",|
|000025b0| 22 3c 53 54 44 74 72 61 | 63 65 24 44 69 72 3e 2e |"<STDtra|ce$Dir>.|
|000025c0| 21 48 65 6c 70 22 0d 0b | a4 10 c9 20 32 20 3a 20 |!Help"..|... 2 : |
|000025d0| 51 75 69 74 3d b9 0d 0b | ae 05 cb 0d 0b b8 05 cb |Quit=...|........|
|000025e0| 0d 0b c2 05 e1 0d 0b cc | 05 3a 0d 0b d6 12 dd 20 |........|.:..... |
|000025f0| f2 64 65 66 69 6e 65 4d | 65 6e 75 73 0d 0b e0 0e |.defineM|enus....|
|00002600| ea 20 74 24 20 3a 20 ea | 20 dc 0d 0b ea 15 de 20 |. t$ : .| ...... |
|00002610| 6d 65 6e 75 66 72 65 65 | 25 20 26 32 30 30 30 0d |menufree|% &2000.|
|00002620| 0b f4 12 70 74 72 25 3d | 6d 65 6e 75 66 72 65 65 |...ptr%=|menufree|
|00002630| 25 0d 0b fe 27 f7 2b 31 | 20 3a 20 f3 20 74 24 20 |%...'.+1| : . t$ |
|00002640| 3a 20 49 63 6f 6e 4d 25 | 3d a4 63 72 65 61 74 65 |: IconM%|=.create|
|00002650| 4d 65 6e 75 28 74 24 29 | 0d 0c 08 28 dc 22 23 53 |Menu(t$)|...(."#S|
|00002660| 54 44 20 54 72 61 63 65 | 3b 48 65 6c 70 3b 49 6e |TD Trace|;Help;In|
|00002670| 66 6f 23 3e 49 6e 66 6f | 57 25 3b 51 75 69 74 22 |fo#>Info|W%;Quit"|
|00002680| 0d 0c 12 05 e1 0d 0c 1c | 05 3a 0d 0c 26 0f dd 20 |........|.:..&.. |
|00002690| f2 6d 65 6e 75 28 68 25 | 29 0d 0c 30 0b c8 8e 20 |.menu(h%|)..0... |
|000026a0| 68 25 20 ca 0d 0c 3a 17 | c9 20 2d 32 20 3a 20 f2 |h% ...:.|. -2 : .|
|000026b0| 70 6f 70 28 49 63 6f 6e | 4d 25 29 0d 0c 44 05 cb |pop(Icon|M%)..D..|
|000026c0| 0d 0c 4e 05 e1 0d 0c 58 | 05 3a 0d 0c 62 16 dd 20 |..N....X|.:..b.. |
|000026d0| a4 70 61 72 28 74 24 2c | 73 24 2c f8 20 69 25 29 |.par(t$,|s$,. i%)|
|000026e0| 0d 0c 6c 1e 61 25 3d 69 | 25 2b 31 20 3a 20 69 25 |..l.a%=i|%+1 : i%|
|000026f0| 3d a7 74 24 2b 73 24 2c | 73 24 2c 61 25 29 0d 0c |=.t$+s$,|s$,a%)..|
|00002700| 76 12 3d c1 74 24 2c 61 | 25 2c 69 25 2d 61 25 29 |v.=.t$,a|%,i%-a%)|
|00002710| 0d 0c 80 05 3a 0d 0c 8a | 15 dd 20 a4 63 72 65 61 |....:...|.. .crea|
|00002720| 74 65 4d 65 6e 75 28 6d | 24 29 0d 0c 94 19 70 74 |teMenu(m|$)....pt|
|00002730| 72 25 3d 6d 65 6e 75 66 | 72 65 65 25 20 3a 20 69 |r%=menuf|ree% : i|
|00002740| 25 3d 30 0d 0c 9e 12 e7 | 20 c0 6d 24 2c 31 29 3d |%=0.....| .m$,1)=|
|00002750| 22 23 22 20 8c 0d 0c a8 | 28 20 20 20 20 20 3a 20 |"#" ....|(     : |
|00002760| 69 25 3d 31 20 3a 20 74 | 69 74 6c 65 24 3d a4 70 |i%=1 : t|itle$=.p|
|00002770| 61 72 28 6d 24 2c 22 3b | 22 2c 69 25 29 0d 0c b2 |ar(m$,";|",i%)...|
|00002780| 11 cc 20 3a 20 74 69 74 | 6c 65 24 3d 22 22 0d 0c |.. : tit|le$=""..|
|00002790| bc 05 cd 0d 0c c6 10 24 | 70 74 72 25 3d 74 69 74 |.......$|ptr%=tit|
|000027a0| 6c 65 24 0d 0c d0 31 70 | 74 72 25 3f 31 32 3d 37 |le$...1p|tr%?12=7|
|000027b0| 20 3a 20 70 74 72 25 3f | 31 33 3d 32 20 3a 20 70 | : ptr%?|13=2 : p|
|000027c0| 74 72 25 3f 31 34 3d 37 | 20 3a 20 70 74 72 25 3f |tr%?14=7| : ptr%?|
|000027d0| 31 35 3d 30 0d 0c da 2b | 70 74 72 25 21 31 36 3d |15=0...+|ptr%!16=|
|000027e0| 31 39 36 2d 32 34 20 3a | 20 70 74 72 25 21 32 30 |196-24 :| ptr%!20|
|000027f0| 3d 34 34 20 3a 20 70 74 | 72 25 21 32 34 3d 30 0d |=44 : pt|r%!24=0.|
|00002800| 0c e4 1d 70 74 72 25 2b | 3d 32 38 20 3a 20 6d 61 |...ptr%+|=28 : ma|
|00002810| 78 78 25 3d a9 20 74 69 | 74 6c 65 24 0d 0c ee 05 |xx%=. ti|tle$....|
|00002820| f5 0d 0c f8 2c 69 74 65 | 6d 24 3d a4 70 61 72 28 |....,ite|m$=.par(|
|00002830| 6d 24 2c 22 3b 22 2c 69 | 25 29 20 3a 20 f2 6d 65 |m$,";",i|%) : .me|
|00002840| 6e 75 49 74 65 6d 28 69 | 74 65 6d 24 29 0d 0d 02 |nuItem(i|tem$)...|
|00002850| 0e fd 20 69 74 65 6d 24 | 3d 22 22 0d 0d 0c 26 6d |.. item$|=""...&m|
|00002860| 25 3d 6d 65 6e 75 66 72 | 65 65 25 20 3a 20 6d 25 |%=menufr|ee% : m%|
|00002870| 21 31 36 3d 28 6d 61 78 | 78 25 2a 38 2b 36 29 2a |!16=(max|x%*8+6)*|
|00002880| 32 0d 0d 16 12 6d 65 6e | 75 66 72 65 65 25 3d 70 |2....men|ufree%=p|
|00002890| 74 72 25 0d 0d 20 07 3d | 6d 25 0d 0d 2a 05 3a 0d |tr%.. .=|m%..*.:.|
|000028a0| 0d 34 16 dd 20 f2 6d 65 | 6e 75 49 74 65 6d 28 74 |.4.. .me|nuItem(t|
|000028b0| 65 78 74 24 29 0d 0d 3e | 2e e7 20 74 65 78 74 24 |ext$)..>|.. text$|
|000028c0| 3d 22 22 20 8c 20 70 74 | 72 25 21 2d 32 34 3d 28 |="" . pt|r%!-24=(|
|000028d0| 70 74 72 25 21 2d 32 34 | 29 20 84 20 26 38 30 20 |ptr%!-24|) . &80 |
|000028e0| 3a 20 e1 0d 0d 48 0e ea | 20 69 25 2c 66 6c 61 67 |: ...H..| i%,flag|
|000028f0| 25 0d 0d 52 1e 66 6c 61 | 67 25 3d 26 30 30 20 3a |%..R.fla|g%=&00 :|
|00002900| 20 69 25 3d a7 74 65 78 | 74 24 2c 22 3e 22 29 0d | i%=.tex|t$,">").|
|00002910| 0d 5c 0c e7 20 69 25 3e | 30 20 8c 0d 0d 66 35 20 |.\.. i%>|0 ...f5 |
|00002920| 20 20 20 20 3a 20 73 75 | 62 70 74 72 25 3d a0 c1 |    : su|bptr%=..|
|00002930| 74 65 78 74 24 2c 69 25 | 2b 31 29 20 3a 20 74 65 |text$,i%|+1) : te|
|00002940| 78 74 24 3d c0 74 65 78 | 74 24 2c 69 25 2d 31 29 |xt$=.tex|t$,i%-1)|
|00002950| 0d 0d 70 12 cc 20 3a 20 | 73 75 62 70 74 72 25 3d |..p.. : |subptr%=|
|00002960| 2d 31 0d 0d 7a 05 cd 0d | 0d 84 12 69 25 3d a7 74 |-1..z...|...i%=.t|
|00002970| 65 78 74 24 2c 22 7d 22 | 29 0d 0d 8e 0c e7 20 69 |ext$,"}"|)..... i|
|00002980| 25 3e 30 20 8c 0d 0d 98 | 35 20 20 20 20 20 3a 20 |%>0 ....|5     : |
|00002990| 73 75 62 70 74 72 25 3d | a0 c1 74 65 78 74 24 2c |subptr%=|..text$,|
|000029a0| 69 25 2b 31 29 20 3a 20 | 74 65 78 74 24 3d c0 74 |i%+1) : |text$=.t|
|000029b0| 65 78 74 24 2c 69 25 2d | 31 29 0d 0d a2 15 20 20 |ext$,i%-|1)....  |
|000029c0| 20 20 20 3a 20 66 6c 61 | 67 25 2b 3d 26 30 38 0d |   : fla|g%+=&08.|
|000029d0| 0d ac 05 cd 0d 0d b6 30 | e7 20 c2 74 65 78 74 24 |.......0|. .text$|
|000029e0| 2c 31 29 3d 22 23 22 20 | 8c 20 74 65 78 74 24 3d |,1)="#" |. text$=|
|000029f0| c0 74 65 78 74 24 29 20 | 3a 20 66 6c 61 67 25 2b |.text$) |: flag%+|
|00002a00| 3d 26 30 32 0d 0d c0 34 | 70 74 72 25 21 30 3d 66 |=&02...4|ptr%!0=f|
|00002a10| 6c 61 67 25 20 3a 20 70 | 74 72 25 21 34 3d 73 75 |lag% : p|tr%!4=su|
|00002a20| 62 70 74 72 25 20 3a 20 | 70 74 72 25 21 38 3d 26 |bptr% : |ptr%!8=&|
|00002a30| 30 37 30 30 30 30 32 31 | 0d 0d ca 15 e7 20 c0 74 |07000021|..... .t|
|00002a40| 65 78 74 24 2c 31 29 3d | 22 24 22 20 8c 0d 0d d4 |ext$,1)=|"$" ....|
|00002a50| 35 20 20 20 20 20 3a 20 | 21 70 74 72 25 2b 3d 26 |5     : |!ptr%+=&|
|00002a60| 30 34 20 3a 20 70 74 72 | 25 21 38 2b 3d 26 31 30 |04 : ptr|%!8+=&10|
|00002a70| 30 20 3a 20 69 25 3d a7 | 74 65 78 74 24 2c 22 28 |0 : i%=.|text$,"(|
|00002a80| 22 29 0d 0d de 13 20 20 | 20 20 20 3a 20 e7 20 69 |")....  |   : . i|
|00002a90| 25 3e 30 20 8c 0d 0d e8 | 30 20 20 20 20 20 3a 20 |%>0 ....|0     : |
|00002aa0| 4c 25 3d bb c1 74 65 78 | 74 24 2c 69 25 2b 31 29 |L%=..tex|t$,i%+1)|
|00002ab0| 20 3a 20 74 65 78 74 24 | 3d c0 74 65 78 74 24 2c | : text$|=.text$,|
|00002ac0| 69 25 2d 31 29 0d 0d f2 | 0d cc 20 3a 20 4c 25 3d |i%-1)...|.. : L%=|
|00002ad0| 31 32 0d 0d fc 05 cd 0d | 0e 06 37 20 20 20 20 20 |12......|..7     |
|00002ae0| 3a 20 70 74 72 25 21 31 | 32 3d a0 c1 74 65 78 74 |: ptr%!1|2=..text|
|00002af0| 24 2c 32 29 20 3a 20 70 | 74 72 25 21 31 36 3d 2d |$,2) : p|tr%!16=-|
|00002b00| 31 20 3a 20 70 74 72 25 | 21 32 30 3d 4c 25 0d 0e |1 : ptr%|!20=L%..|
|00002b10| 10 19 20 20 20 20 20 3a | 20 74 65 78 74 24 3d c4 |..     :| text$=.|
|00002b20| 4c 25 2c 22 20 22 29 0d | 0e 1a 16 cc 20 3a 20 e7 |L%," ").|.... : .|
|00002b30| 20 a9 74 65 78 74 24 3c | 3d 31 32 20 8c 0d 0e 24 | .text$<|=12 ...$|
|00002b40| 1b 20 20 20 20 20 3a 20 | 24 28 70 74 72 25 2b 31 |.     : |$(ptr%+1|
|00002b50| 32 29 3d 74 65 78 74 24 | 0d 0e 2e 28 cc 20 3a 20 |2)=text$|...(. : |
|00002b60| 49 25 3d a4 77 6f 72 6b | 73 70 28 a9 74 65 78 74 |I%=.work|sp(.text|
|00002b70| 24 2b 31 29 20 3a 20 24 | 49 25 3d 74 65 78 74 24 |$+1) : $|I%=text$|
|00002b80| 0d 0e 38 35 20 20 20 20 | 20 3a 20 70 74 72 25 21 |..85    | : ptr%!|
|00002b90| 31 32 3d 49 25 20 3a 20 | 70 74 72 25 21 31 36 3d |12=I% : |ptr%!16=|
|00002ba0| 2d 31 20 3a 20 70 74 72 | 25 21 32 30 3d a9 74 65 |-1 : ptr|%!20=.te|
|00002bb0| 78 74 24 2b 31 0d 0e 42 | 1f 20 20 20 20 20 3a 20 |xt$+1..B|.     : |
|00002bc0| 70 74 72 25 21 38 3d 70 | 74 72 25 21 38 20 84 20 |ptr%!8=p|tr%!8 . |
|00002bd0| 26 31 30 30 0d 0e 4c 05 | cd 0d 0e 56 40 20 20 20 |&100..L.|...V@   |
|00002be0| 20 20 3a 20 e7 20 a9 74 | 65 78 74 24 2d 28 73 75 |  : . .t|ext$-(su|
|00002bf0| 62 70 74 72 25 3e 30 29 | 3e 6d 61 78 78 25 20 8c |bptr%>0)|>maxx% .|
|00002c00| 20 6d 61 78 78 25 3d a9 | 74 65 78 74 24 2d 28 73 | maxx%=.|text$-(s|
|00002c10| 75 62 70 74 72 25 3e 30 | 29 0d 0e 60 05 cd 0d 0e |ubptr%>0|)..`....|
|00002c20| 6a 0c 70 74 72 25 2b 3d | 32 34 0d 0e 74 05 e1 0d |j.ptr%+=|24..t...|
|00002c30| 0e 7e 05 3a 0d 0e 88 11 | dd 20 a4 77 6f 72 6b 73 |.~.:....|. .works|
|00002c40| 70 28 4c 25 29 0d 0e 92 | 0f 62 75 66 66 65 72 25 |p(L%)...|.buffer%|
|00002c50| 2b 3d 4c 25 0d 0e 9c 0f | 3d 62 75 66 66 65 72 25 |+=L%....|=buffer%|
|00002c60| 2d 4c 25 0d 0e a6 05 3a | 0d 0e b0 11 dd 20 f2 70 |-L%....:|..... .p|
|00002c70| 6f 70 28 6d 65 6e 75 25 | 29 0d 0e ba 11 e7 20 6d |op(menu%|)..... m|
|00002c80| 65 6e 75 25 3c 30 20 8c | 20 e1 0d 0e c4 1c e7 20 |enu%<0 .| ...... |
|00002c90| 6d 65 6e 75 25 3d 49 63 | 6f 6e 4d 25 20 8c 20 6d |menu%=Ic|onM% . m|
|00002ca0| 79 25 3d 32 32 30 0d 0e | ce 2d c8 99 20 22 57 69 |y%=220..|.-.. "Wi|
|00002cb0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00002cc0| 6d 65 6e 75 25 2c 6d 78 | 25 2d 36 34 2c 6d 79 25 |menu%,mx|%-64,my%|
|00002cd0| 2b 33 32 0d 0e d8 10 6f | 6d 65 6e 75 25 3d 6d 65 |+32....o|menu%=me|
|00002ce0| 6e 75 25 0d 0e e2 05 e1 | 0d 0e ec 05 3a 0d 0e f6 |nu%.....|....:...|
|00002cf0| 10 dd 20 f2 63 6c 6f 73 | 65 4d 65 6e 75 0d 0f 00 |.. .clos|eMenu...|
|00002d00| 1b c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |... "Wim|p_Create|
|00002d10| 4d 65 6e 75 22 2c 2d 31 | 0d 0f 0a 30 f2 63 6c 6f |Menu",-1|...0.clo|
|00002d20| 73 65 57 69 6e 64 6f 77 | 28 49 6e 66 6f 25 29 20 |seWindow|(Info%) |
|00002d30| 3a 20 f2 63 6c 6f 73 65 | 57 69 6e 64 6f 77 28 4f |: .close|Window(O|
|00002d40| 70 74 69 6f 6e 73 25 29 | 0d 0f 14 05 e1 0d 0f 1e |ptions%)|........|
|00002d50| 05 3a 0d 0f 28 0c dd 20 | f2 65 72 72 6f 72 0d 0f |.:..(.. |.error..|
|00002d60| 32 25 c8 99 20 22 57 69 | 6d 70 5f 44 72 61 67 42 |2%.. "Wi|mp_DragB|
|00002d70| 6f 78 22 2c 2c 2d 31 20 | 3a 20 21 62 6c 6f 63 6b |ox",,-1 |: !block|
|00002d80| 3d 9f 20 0d 0f 3c 10 e7 | 20 44 65 62 75 67 25 3d |=. ..<..| Debug%=|
|00002d90| a3 20 8c 0d 0f 46 5a 20 | 20 20 20 20 3a 20 24 28 |. ...FZ |    : $(|
|00002da0| 62 6c 6f 63 6b 2b 34 29 | 3d 22 53 54 44 20 54 72 |block+4)|="STD Tr|
|00002db0| 61 63 65 20 68 61 73 20 | 73 75 66 66 65 72 65 64 |ace has |suffered|
|00002dc0| 20 61 20 66 61 74 61 6c | 20 65 72 72 6f 72 20 61 | a fatal| error a|
|00002dd0| 6e 64 20 6d 75 73 74 20 | 65 78 69 74 20 69 6d 6d |nd must |exit imm|
|00002de0| 65 64 69 61 74 65 6c 79 | 2e 22 2b bd 30 0d 0f 50 |ediately|."+.0..P|
|00002df0| 29 cc 20 3a 20 24 28 62 | 6c 6f 63 6b 2b 34 29 3d |). : $(b|lock+4)=|
|00002e00| f6 24 2b 22 20 61 74 20 | 6c 69 6e 65 20 22 2b c3 |.$+" at |line "+.|
|00002e10| 28 9e 29 2b bd 30 0d 0f | 5a 05 cd 0d 0f 64 32 c8 |(.)+.0..|Z....d2.|
|00002e20| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00002e30| 72 6f 72 22 2c 62 6c 6f | 63 6b 2c 31 2c 22 53 54 |ror",blo|ck,1,"ST|
|00002e40| 44 20 43 6f 64 65 20 54 | 72 61 63 65 22 0d 0f 6e |D Code T|race"..n|
|00002e50| 05 e1 0d 0f 78 05 3a 0d | 0f 82 19 dd 20 f2 73 65 |....x.:.|.... .se|
|00002e60| 61 72 63 68 28 53 65 61 | 72 63 68 24 2c 73 25 29 |arch(Sea|rch$,s%)|
|00002e70| 0d 0f 8c 2e c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |...... "|Hourglas|
|00002e80| 73 5f 4f 6e 22 20 3a 20 | 53 65 61 72 63 68 24 3d |s_On" : |Search$=|
|00002e90| a4 63 61 70 73 28 53 65 | 61 72 63 68 24 29 0d 0f |.caps(Se|arch$)..|
|00002ea0| 96 1f e3 20 61 3d 73 25 | 20 b8 20 54 6f 74 61 6c |... a=s%| . Total|
|00002eb0| 25 20 3a 20 e3 20 62 3d | 30 20 b8 20 32 0d 0f a0 |% : . b=|0 . 2...|
|00002ec0| 31 e7 20 a7 53 54 44 24 | 28 61 2c 62 29 2c 53 65 |1. .STD$|(a,b),Se|
|00002ed0| 61 72 63 68 24 29 3e 30 | 20 8c 20 f2 75 70 64 61 |arch$)>0| . .upda|
|00002ee0| 74 65 46 6f 75 6e 64 28 | 61 29 20 3a 20 e1 0d 0f |teFound(|a) : ...|
|00002ef0| aa 2a ed 20 2c 20 3a 20 | f2 63 6c 6f 73 65 57 69 |.*. , : |.closeWi|
|00002f00| 6e 64 6f 77 28 46 6f 75 | 6e 57 25 29 20 3a 20 f2 |ndow(Fou|nW%) : .|
|00002f10| 73 65 74 46 6f 75 6e 64 | 0d 0f b4 35 f2 62 6f 72 |setFound|...5.bor|
|00002f20| 64 65 72 49 63 6f 6e 28 | 46 6f 75 6e 57 25 2c 36 |derIcon(|FounW%,6|
|00002f30| 2c 30 29 20 3a 20 f2 69 | 6e 64 69 72 49 63 6f 6e |,0) : .i|ndirIcon|
|00002f40| 28 53 65 61 72 57 25 2c | 32 2c 22 22 29 0d 0f be |(SearW%,|2,"")...|
|00002f50| 32 f2 73 65 74 43 61 72 | 65 74 28 53 65 61 72 57 |2.setCar|et(SearW|
|00002f60| 25 2c 32 29 20 3a 20 c8 | 99 20 22 48 6f 75 72 67 |%,2) : .|. "Hourg|
|00002f70| 6c 61 73 73 5f 4f 66 66 | 22 20 3a 20 ef 20 37 0d |lass_Off|" : . 7.|
|00002f80| 0f c8 05 e1 0d 0f d2 05 | 3a 0d 0f dc 0f dd 20 a4 |........|:..... .|
|00002f90| 63 61 70 73 28 63 24 29 | 0d 0f e6 11 e7 20 63 24 |caps(c$)|..... c$|
|00002fa0| 3d 22 22 20 8c 20 3d 22 | 22 0d 0f f0 15 ea 20 43 |="" . ="|"..... C|
|00002fb0| 25 2c 49 25 2c 46 25 20 | 3a 20 46 25 3d b9 0d 0f |%,I%,F% |: F%=...|
|00002fc0| fa 22 e3 20 49 25 3d 31 | 20 b8 20 a9 28 63 24 29 |.". I%=1| . .(c$)|
|00002fd0| 20 3a 20 43 25 3d 97 28 | c1 63 24 2c 49 25 29 29 | : C%=.(|.c$,I%))|
|00002fe0| 0d 10 04 0a e7 20 46 25 | 20 8c 0d 10 0e 30 20 20 |..... F%| ....0  |
|00002ff0| 20 20 20 3a 20 e7 20 43 | 25 3e 39 36 20 80 20 43 |   : . C|%>96 . C|
|00003000| 25 3c 31 32 33 20 8c 20 | c1 63 24 2c 49 25 2c 31 |%<123 . |.c$,I%,1|
|00003010| 29 3d bd 28 43 25 2d 33 | 32 29 0d 10 18 2c cc 20 |)=.(C%-3|2)...,. |
|00003020| 3a 20 e7 20 43 25 3e 36 | 34 20 80 20 43 25 3c 39 |: . C%>6|4 . C%<9|
|00003030| 31 20 8c 20 c1 63 24 2c | 49 25 2c 31 29 3d bd 28 |1 . .c$,|I%,1)=.(|
|00003040| 43 25 2b 33 32 29 0d 10 | 22 05 cd 0d 10 2c 21 e7 |C%+32)..|"....,!.|
|00003050| 20 43 25 3d 33 32 20 84 | 20 43 25 3d 34 35 20 8c | C%=32 .| C%=45 .|
|00003060| 20 46 25 3d b9 20 8b 20 | 46 25 3d a3 0d 10 36 05 | F%=. . |F%=...6.|
|00003070| ed 0d 10 40 07 3d 63 24 | 0d ff                   |...@.=c$|..      |
+--------+-------------------------+-------------------------+--------+--------+